X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FBinary.hs;h=cbfec74cff1077464a1e3448c5f5f8a5d3d1951b;hp=c61f8a6baab8d9a8d757342429c4449c1882dbc9;hb=1c83695b5b9ae3175c18908c1d58aeadb1f225ae;hpb=2675f2b68794ef6712e1ea0b9ec110c46c9e5ebf diff --git a/compiler/utils/Binary.hs b/compiler/utils/Binary.hs index c61f8a6..cbfec74 100644 --- a/compiler/utils/Binary.hs +++ b/compiler/utils/Binary.hs @@ -83,10 +83,15 @@ import System.IO.Unsafe ( unsafeInterleaveIO ) import System.IO.Error ( mkIOError, eofErrorType ) import GHC.Real ( Ratio(..) ) import GHC.Exts -import GHC.IOBase ( IO(..) ) import GHC.Word ( Word8(..) ) import System.IO ( openBinaryFile ) +#if __GLASGOW_HASKELL__ >= 611 +import GHC.IO ( IO(..) ) +#else +import GHC.IOBase ( IO(..) ) +#endif + type BinArray = ForeignPtr Word8 ---------------------------------------------------------------