projects
/
haskell-directory.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2002-12-12 13:42:46 by ross]
[haskell-directory.git]
/
Foreign
/
Marshal
/
Alloc.hs
diff --git
a/Foreign/Marshal/Alloc.hs
b/Foreign/Marshal/Alloc.hs
index
ce167b5
..
0e394c5
100644
(file)
--- a/
Foreign/Marshal/Alloc.hs
+++ b/
Foreign/Marshal/Alloc.hs
@@
-24,26
+24,25
@@
module Foreign.Marshal.Alloc (
realloc, -- :: Storable b => Ptr a -> IO (Ptr b)
reallocBytes, -- :: Ptr a -> Int -> IO (Ptr a)
realloc, -- :: Storable b => Ptr a -> IO (Ptr b)
reallocBytes, -- :: Ptr a -> Int -> IO (Ptr a)
-#ifdef __HUGS__
- free, -- :: Ptr a -> IO ()
- finalizerFree -- :: FunPtr (Ptr a -> IO ())
-#else
free -- :: Ptr a -> IO ()
free -- :: Ptr a -> IO ()
+#ifdef __HUGS__
+ , finalizerFree -- :: FunPtr (Ptr a -> IO ())
#endif
) where
import Data.Maybe
import Foreign.Ptr ( Ptr, nullPtr, FunPtr )
#endif
) where
import Data.Maybe
import Foreign.Ptr ( Ptr, nullPtr, FunPtr )
-import Foreign.C.TypesISO ( CSize )
+import Foreign.C.Types ( CSize, CInt(..) )
import Foreign.Storable ( Storable(sizeOf) )
#ifdef __GLASGOW_HASKELL__
import Foreign.Storable ( Storable(sizeOf) )
#ifdef __GLASGOW_HASKELL__
-import GHC.Exception ( bracket )
import GHC.IOBase
import GHC.Real
import GHC.Ptr
import GHC.Err
import GHC.Base
import GHC.IOBase
import GHC.Real
import GHC.Ptr
import GHC.Err
import GHC.Base
+#elif defined(__NHC__)
+import System.IO ( bracket )
#else
import Control.Exception ( bracket )
#endif
#else
import Control.Exception ( bracket )
#endif