[library cleanups
John Meacham <john@repetae.net>**20120124024004
 Ignore-this: 8f6c6f4d8229e774bfd93fd684a4b6cc
] hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 19
-import Foreign.Ptr
-import Foreign.Storable
-import Prelude.IO
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 21
-import Jhc.Prim
+import Foreign.Ptr
+import Foreign.Storable
+import Jhc.Addr
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 25
-import Jhc.Monad
-import Jhc.Order
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 27
-import Jhc.Addr
+import Jhc.Monad
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 29
+import Jhc.Order
+import Jhc.Prim
+import Prelude.IO
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 34
-
-
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 65
-
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 77
+{-# INLINE failWhenNULL #-}
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 81
+   failWhenNULL' name addr
+
+failWhenNULL' :: String -> Ptr a -> IO (Ptr a)
+failWhenNULL' name addr = do
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 97
-mallocBytes size  = failWhenNULL "malloc" (_malloc (fromIntegral size))
-
+mallocBytes size  = _malloc (fromIntegral size) >>= failWhenNULL' "malloc"
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 115
-                       failWhenNULL "realloc" (_realloc ptr size)
+                       (_realloc ptr size) >>= failWhenNULL' "realloc"
hunk ./lib/jhc/Foreign/Marshal/Alloc.hs 133
-  failWhenNULL "realloc" (_realloc ptr (fromIntegral size))
+  _realloc ptr (fromIntegral size) >>= failWhenNULL' "realloc"