diff options
| -rw-r--r-- | libraries/base/Foreign/Marshal/Array.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libraries/base/Foreign/Marshal/Array.hs b/libraries/base/Foreign/Marshal/Array.hs index 0aea67b2d6..5e103419b6 100644 --- a/libraries/base/Foreign/Marshal/Array.hs +++ b/libraries/base/Foreign/Marshal/Array.hs @@ -211,8 +211,7 @@ withArrayLen :: Storable a => [a] -> (Int -> Ptr a -> IO b) -> IO b withArrayLen vals f = allocaArray len $ \ptr -> do pokeArray ptr vals - res <- f len ptr - return res + f len ptr where len = length vals |