From 1567da593abb3b195241ef43a5ae66930641bfe7 Mon Sep 17 00:00:00 2001
From: "Malcolm.Wallace@cs.york.ac.uk" <unknown>
Date: Fri, 9 Oct 2009 13:40:01 +0000
Subject: [PATCH] Fix gratuitous breakage of nhc98 in System.IO.

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

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.
-- 
1.7.10.4