fix for non-GHC

diff --git a/System/IO.hs b/System/IO.hs
index 8982119..6f0b017 100644 (file)
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -407,6 +407,7 @@ hSetBinaryMode _ _ = return ()
 -- -----------------------------------------------------------------------------
 -- Utils
 
+#ifdef __GLASGOW_HASKELL__
 -- Copied here to avoid recursive dependency with Control.Exception
 bracket 
        :: IO a         -- ^ computation to run first (\"acquire resource\")
@@ -422,3 +423,4 @@ bracket before after thing =
     after a
     return r
  )
+#endif