From abc910df622e11a20fb858750038c7ffa5767d2c Mon Sep 17 00:00:00 2001 From: Herbert Valerio Riedel Date: Fri, 11 Oct 2013 21:24:31 +0200 Subject: Future-proof code for upcoming `array-0.5.0.0` This way CPP conditionals can be avoided for the transition period. Signed-off-by: Herbert Valerio Riedel --- compiler/nativeGen/PprBase.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'compiler/nativeGen/PprBase.hs') diff --git a/compiler/nativeGen/PprBase.hs b/compiler/nativeGen/PprBase.hs index 275d329d2a..90a3b303f4 100644 --- a/compiler/nativeGen/PprBase.hs +++ b/compiler/nativeGen/PprBase.hs @@ -15,8 +15,8 @@ module PprBase ( where -import Data.Array.Unsafe( castSTUArray ) -import Data.Array.ST hiding( castSTUArray ) +import qualified Data.Array.Unsafe as U ( castSTUArray ) +import Data.Array.ST import Control.Monad.ST @@ -28,10 +28,10 @@ import Data.Word -- Converting floating-point literals to integrals for printing castFloatToWord8Array :: STUArray s Int Float -> ST s (STUArray s Int Word8) -castFloatToWord8Array = castSTUArray +castFloatToWord8Array = U.castSTUArray castDoubleToWord8Array :: STUArray s Int Double -> ST s (STUArray s Int Word8) -castDoubleToWord8Array = castSTUArray +castDoubleToWord8Array = U.castSTUArray -- floatToBytes and doubleToBytes convert to the host's byte -- order. Providing that we're not cross-compiling for a -- cgit v1.2.1