diff options
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/PprC.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/cmm/PprC.hs b/compiler/cmm/PprC.hs index 32fd8b4feb..a8d4c5e360 100644 --- a/compiler/cmm/PprC.hs +++ b/compiler/cmm/PprC.hs @@ -55,8 +55,8 @@ import qualified Data.Map as Map import Control.Monad (liftM, ap) import Control.Applicative (Applicative(..)) -import Data.Array.Unsafe ( castSTUArray ) -import Data.Array.ST hiding ( castSTUArray ) +import qualified Data.Array.Unsafe as U ( castSTUArray ) +import Data.Array.ST -- -------------------------------------------------------------------------- -- Top level @@ -1162,10 +1162,10 @@ big_doubles dflags | otherwise = panic "big_doubles" castFloatToIntArray :: STUArray s Int Float -> ST s (STUArray s Int Int) -castFloatToIntArray = castSTUArray +castFloatToIntArray = U.castSTUArray castDoubleToIntArray :: STUArray s Int Double -> ST s (STUArray s Int Int) -castDoubleToIntArray = castSTUArray +castDoubleToIntArray = U.castSTUArray -- floats are always 1 word floatToWord :: DynFlags -> Rational -> CmmLit |