From 353e92f3080be0bac9bd740b144c59ce67ea4a7f Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Thu, 7 Oct 2004 09:42:28 +0000
Subject: [PATCH] [project @ 2004-10-07 09:42:28 by malcolm] Oops, fix
 impdecl/fundecl ordering.

---
 System/IO.hs |    8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/System/IO.hs b/System/IO.hs
index ebdb726..9b5d456 100644
--- 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.
-- 
1.7.10.4