diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2015-03-26 11:06:12 +0000 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-08-27 10:03:10 +0200 |
| commit | 15c63d2ac1983a72de20ec83b7263bf12b79ae49 (patch) | |
| tree | 1550d6b695496efadc9d293296a61656467d865a | |
| parent | 7bd8f8f820ab647a4acd1d8c9e30ef254324b4d9 (diff) | |
| download | haskell-15c63d2ac1983a72de20ec83b7263bf12b79ae49.tar.gz | |
base: Remove a redundant 'return'
| -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 |