import Foreign.Storable ( Storable(sizeOf) )
#ifdef __GLASGOW_HASKELL__
-import GHC.Exception ( bracket )
import GHC.IOBase
import GHC.Real
import GHC.Ptr
import GHC.Err
import GHC.Base
#elif defined(__NHC__)
-import System.IO ( bracket )
+import IO ( bracket )
#else
import Control.Exception ( bracket )
#endif