[project @ 2004-10-07 09:42:28 by malcolm]

Oops, fix impdecl/fundecl ordering.

diff --git a/System/IO.hs b/System/IO.hs
index ebdb726..9b5d456 100644 (file)
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -209,8 +209,6 @@ import IO
   , FilePath                  -- :: String
   )
 import NHC.IOExtras (fixIO)
-openBinaryFile = openFile
-hSetBinaryMode _ _ = return ()
 #endif
 
 import System.IO.Error (
@@ -393,6 +391,12 @@ fixIO k = do
 -- computation a few times before it notices the loop, which is wrong.
 #endif
 
+#if defined(__NHC__)
+-- Assume a unix platform, where text and binary I/O are identical.
+openBinaryFile = openFile
+hSetBinaryMode _ _ = return ()
+#endif
+
 -- $locking
 -- Implementations should enforce as far as possible, at least locally to the
 -- Haskell process, multiple-reader single-writer locking on files.