diff options
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/lib/integer/IntegerConversionRules.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/numeric/should_run/T7014.hs | 6 | ||||
| -rw-r--r-- | testsuite/tests/typecheck/should_fail/T5095.stderr | 2 |
3 files changed, 10 insertions, 3 deletions
diff --git a/testsuite/tests/lib/integer/IntegerConversionRules.hs b/testsuite/tests/lib/integer/IntegerConversionRules.hs index cb5269f360..56949e7bf1 100644 --- a/testsuite/tests/lib/integer/IntegerConversionRules.hs +++ b/testsuite/tests/lib/integer/IntegerConversionRules.hs @@ -1,7 +1,10 @@ +{-# LANGUAGE CPP #-} module IntegerConversionRules where -import Data.Word +#if __GLASGOW_HASKELL__ < 709 +import Data.Word (Word) +#endif f1 :: Int -> Double f1 = fi diff --git a/testsuite/tests/numeric/should_run/T7014.hs b/testsuite/tests/numeric/should_run/T7014.hs index 82375389d7..222b33bd59 100644 --- a/testsuite/tests/numeric/should_run/T7014.hs +++ b/testsuite/tests/numeric/should_run/T7014.hs @@ -1,7 +1,11 @@ +{-# LANGUAGE CPP #-} + module Main where import Data.Bits -import Data.Word +#if __GLASGOW_HASKELL__ < 705 +import Data.Word (Word) +#endif test_and1 :: Word -> Word test_and1 x = x .&. 0 diff --git a/testsuite/tests/typecheck/should_fail/T5095.stderr b/testsuite/tests/typecheck/should_fail/T5095.stderr index e8d2b712cd..55342cdf33 100644 --- a/testsuite/tests/typecheck/should_fail/T5095.stderr +++ b/testsuite/tests/typecheck/should_fail/T5095.stderr @@ -53,7 +53,7 @@ T5095.hs:9:11: instance Eq Float -- Defined in ‘GHC.Classes’ instance Eq Int -- Defined in ‘GHC.Classes’ instance Eq Ordering -- Defined in ‘GHC.Classes’ - instance Eq GHC.Types.Word -- Defined in ‘GHC.Classes’ + instance Eq Word -- Defined in ‘GHC.Classes’ instance Eq a => Eq [a] -- Defined in ‘GHC.Classes’ instance Eq Integer -- Defined in ‘integer-gmp-0.5.1.0:GHC.Integer.Type’ |