base: Remove a redundant 'return'
authorSimon Peyton Jones <simonpj@microsoft.com>
Thu, 26 Mar 2015 11:06:12 +0000 (11:06 +0000)
committerBen Gamari <ben@smart-cactus.org>
Thu, 27 Aug 2015 08:03:10 +0000 (10:03 +0200)
libraries/base/Foreign/Marshal/Array.hs

index 0aea67b..5e10341 100644 (file)
@@ -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