X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FIO.hs;h=6a6efa20d45fb80ae8ea218e4b146a02cb8dfdf1;hb=1567da593abb3b195241ef43a5ae66930641bfe7;hp=c6a11dd38c5f643c180e5ee4ad539d5df2d775ea;hpb=d92335309378a55fcd85074bbe9b4d7ff6fdba8b;p=ghc-base.git

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.