openBinaryTempFile,
) where
+import Control.Exception hiding (bracket)
+
#ifndef __NHC__
import Data.Bits
import Data.List
#endif
#ifdef __GLASGOW_HASKELL__
-import GHC.Exception as ExceptionBase hiding (catch)
+import GHC.IOBase as ExceptionBase
#endif
#ifdef __HUGS__
import Hugs.Exception as ExceptionBase