Commit 1607c878 authored by simonmar's avatar simonmar
Browse files

[project @ 2006-01-10 09:47:51 by simonmar]

Fix compilation with GHC 6.2.x, hopefully
parent e0dc0bc8
......@@ -455,6 +455,7 @@ pokeCAString ptr str =
go str 0
#if __GLASGOW_HASKELL__ < 600
mallocForeignPtrBytes :: Int -> IO (ForeignPtr a)
mallocForeignPtrBytes n = do
r <- mallocBytes n
......@@ -464,5 +465,10 @@ foreign import ccall unsafe "stdlib.h free"
finalizerFree :: Ptr a -> IO ()
peekCAStringLen = peekCStringLen
#elif __GLASGOW_HASKELL__ <= 602
peekCAStringLen = peekCStringLen
#endif
\end{code}
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment