From: Malcolm.Wallace@cs.york.ac.uk <unknown>
Date: Fri, 9 Oct 2009 13:40:01 +0000 (+0000)
Subject: Fix gratuitous breakage of nhc98 in System.IO.
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1567da593abb3b195241ef43a5ae66930641bfe7;p=ghc-base.git

Fix gratuitous breakage of nhc98 in System.IO.
---

diff --git a/System/IO.hs b/System/IO.hs
index c6a11dd..6a6efa2 100644
--- 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.