From: Ross Paterson <ross@soi.city.ac.uk>
Date: Thu, 4 May 2006 09:30:44 +0000 (+0000)
Subject: fix for non-GHC
X-Git-Tag: directory_2007-05-24~292
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d3e67963a7ab917876e3ec6fa95b791e74bada8d;p=haskell-directory.git

fix for non-GHC
---

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