Fix gratuitous breakage of nhc98 in System.IO.

[ghc-base.git] / System / IO.hs

diff --git a/System/IO.hs b/System/IO.hs
index c6a11dd..6a6efa2 100644 (file)
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -468,6 +468,8 @@ fixIO k = do
 -- Assume a unix platform, where text and binary I/O are identical.
 openBinaryFile = openFile
 hSetBinaryMode _ _ = return ()
+
+type CMode = Int
 #endif
 
 -- | The function creates a temporary file in ReadWrite mode.