Don't use "deriving Typeable" (for portability reasons)

[ghc-base.git] / System / IO.hs

diff --git a/System/IO.hs b/System/IO.hs
index a47e7bd..93166b9 100644 (file)
--- a/System/IO.hs
+++ b/System/IO.hs
@@ -161,6 +161,8 @@ module System.IO (
     openBinaryTempFile,
   ) where
 
+import Control.Exception hiding (bracket)
+
 #ifndef __NHC__
 import Data.Bits
 import Data.List