Commit 15c63d2a authored by Simon Peyton Jones's avatar Simon Peyton Jones Committed by Ben Gamari

base: Remove a redundant 'return'

parent 7bd8f8f8
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment