X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Futils%2FFastMutInt.lhs;h=26183071f15c2622b5d5cd8ad7eafd5612822535;hp=6aa1c798cf9da585999ec8dce90db71f3680f8b7;hb=edc0bafd3fcd01b85a2e8894e5dfe149eb0e0857;hpb=a2a67cd520b9841114d69a87a423dabcb3b4368e diff --git a/compiler/utils/FastMutInt.lhs b/compiler/utils/FastMutInt.lhs index 6aa1c79..2618307 100644 --- a/compiler/utils/FastMutInt.lhs +++ b/compiler/utils/FastMutInt.lhs @@ -1,4 +1,5 @@ \begin{code} +{-# LANGUAGE BangPatterns #-} {-# OPTIONS -cpp #-} {-# OPTIONS_GHC -O #-} -- We always optimise this, otherwise performance of a non-optimised @@ -27,12 +28,6 @@ module FastMutInt( import GHC.Base import GHC.Ptr -#if __GLASGOW_HASKELL__ >= 611 --- import GHC.IO ( IO(..) ) -#else -import GHC.IOBase ( IO(..) ) -#endif - #else /* ! __GLASGOW_HASKELL__ */ import Data.IORef