From d3e67963a7ab917876e3ec6fa95b791e74bada8d Mon Sep 17 00:00:00 2001 From: Ross Paterson Date: Thu, 4 May 2006 09:30:44 +0000 Subject: [PATCH] fix for non-GHC --- System/IO.hs | 2 ++ 1 file changed, 2 insertions(+) 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 -- 1.7.10.4