[require ghc 6.0.1 at the minimum. David Roundy **20040717125940] hunk ./Diff.lhs 43 -import Lock ( openBinaryFile ) +import System.IO ( openBinaryFile ) hunk ./FastPackedString.hs 111 -#if __GLASGOW_HASKELL__ > 601 hunk ./FastPackedString.hs 112 -#else -import GHC.Handle ( openFileEx, IOModeEx(..) ) -#endif hunk ./FastPackedString.hs 113 -#if __GLASGOW_HASKELL__ < 600 -import Foreign.ForeignPtr( ForeignPtr, withForeignPtr, newForeignPtr ) -mallocForeignPtrArray :: Int -> IO (ForeignPtr Word8) -mallocForeignPtrArray i = do p <- mallocArray i - mallocedPtrToForeignPtr p -#else hunk ./FastPackedString.hs 118 -#endif hunk ./FastPackedString.hs 123 -#if __GLASGOW_HASKELL__ < 600 -debugForeignPtr fp n = - do putStr $ "Allocating "++n++"\n" - addForeignPtrFinalizer fp (putStr $ "Freeing "++n++"\n") -mallocedPtrToForeignPtr p = newForeignPtr p (free p) -#else hunk ./FastPackedString.hs 130 -#if __GLASGOW_HASKELL__ > 601 hunk ./FastPackedString.hs 133 -#else - addForeignPtrFinalizer fp debug_free -mallocedPtrToForeignPtr p = - Foreign.ForeignPtr.newForeignPtr p finalizerFree -#endif -#endif - -#if __GLASGOW_HASKELL__ < 601 -openBinaryFile f m = openFileEx f (BinaryMode m) -#endif - +\ hunk ./FastPackedString.hs 675 -#if __GLASGOW_HASKELL__ >= 600 hunk ./FastPackedString.hs 676 -#endif hunk ./Lock.lhs 21 - writeToFile, appendToFile, openBinaryFile, + writeToFile, appendToFile, hunk ./Lock.lhs 32 -#if __GLASGOW_HASKELL__ > 601 hunk ./Lock.lhs 33 -#else -import GHC.Handle ( openFileEx, IOModeEx(..) ) -#endif hunk ./Lock.lhs 51 -#if __GLASGOW_HASKELL__ < 601 -openBinaryFile f m = openFileEx f (BinaryMode m) -#endif - hunk ./SignalHandler.lhs 75 -#if __GLASGOW_HASKELL__ < 600 -just_usererrors e@(IOException _) | isUserError e = Just $ ioeGetErrorString e -just_usererrors e@(IOException _) | ioeGetFileName e == Just "" - = Just $ "STDOUT"++ioeGetErrorString e -#else hunk ./SignalHandler.lhs 78 -#endif hunk ./Zlib.lhs 16 -#if __GLASGOW_HASKELL__ >= 600 hunk ./Zlib.lhs 17 -#endif hunk ./Zlib.lhs 25 -#if __GLASGOW_HASKELL__ >= 600 hunk ./Zlib.lhs 27 -#else -fdToReadHandle fd fn = openFd fd Nothing fn ReadMode False False -fdToWriteHandle fd fn = openFd fd Nothing fn WriteMode False False -#endif hunk ./index.html.in 45 -will need ghc 5.04, or +will need ghc 6.01, or hunk ./index.html.in 47 -It is recommended that you use ghc 6.0 or later, as ghc 5.04 support is not -as well tested.