diff options
Diffstat (limited to 'libraries/base/GHC/ForeignPtr.hs')
| -rw-r--r-- | libraries/base/GHC/ForeignPtr.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/base/GHC/ForeignPtr.hs b/libraries/base/GHC/ForeignPtr.hs index 355d7a1e64..a418efcede 100644 --- a/libraries/base/GHC/ForeignPtr.hs +++ b/libraries/base/GHC/ForeignPtr.hs @@ -106,7 +106,7 @@ mallocForeignPtr :: Storable a => IO (ForeignPtr a) -- assume that the memory returned by 'mallocForeignPtr' has been -- allocated with 'Foreign.Marshal.Alloc.malloc'. mallocForeignPtr = doMalloc undefined - where doMalloc :: Storable a => a -> IO (ForeignPtr a) + where doMalloc :: Storable b => b -> IO (ForeignPtr b) doMalloc a = do r <- newIORef [] IO $ \s -> |