From 3d7189fd0311d0178765ed27d349bc52cdbde47d Mon Sep 17 00:00:00 2001
From: Ian Lynagh <igloo@earth.li>
Date: Sat, 5 Feb 2011 17:40:52 +0000
Subject: [PATCH] Remove the haskell98 dependency from the
typecheck/should_fail tests
---
testsuite/tests/ghc-regress/typecheck/should_fail/T2538.hs | 2 +-
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail058.hs | 2 +-
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail102.hs | 2 +-
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail193.hs | 2 +-
testsuite/tests/ghc-regress/typecheck/should_fail/tcfail194.hs | 2 +-
5 files changed, 5 insertions(+), 5 deletions(-)
diff --git a/testsuite/tests/ghc-regress/typecheck/should_fail/T2538.hs b/testsuite/tests/ghc-regress/typecheck/should_fail/T2538.hs
index cb75351ead4..11d9c479b54 100644
--- a/testsuite/tests/ghc-regress/typecheck/should_fail/T2538.hs
+++ b/testsuite/tests/ghc-regress/typecheck/should_fail/T2538.hs
@@ -1,7 +1,7 @@
-- Trac #2538
module ShouldFail where
-import Ix
+import Data.Ix
f :: (Eq a => a -> a) -> Int
f = error "urk"
diff --git a/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail058.hs b/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail058.hs
index d8315b87b99..2763e97bc78 100644
--- a/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail058.hs
+++ b/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail058.hs
@@ -1,5 +1,5 @@
module ShouldFail where
-import Array
+import Data.Array
-- !!! inadvertently using => instead of ->
diff --git a/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail102.hs b/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail102.hs
index aa9a3b5c5f1..91f9bb8be5c 100644
--- a/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail102.hs
+++ b/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail102.hs
@@ -1,6 +1,6 @@
module ShouldFail where
-import Ratio
+import Data.Ratio
data Integral a => P a = P { p :: a }
diff --git a/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail193.hs b/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail193.hs
index 1c9bd63e9a6..f8bfd8f681d 100644
--- a/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail193.hs
+++ b/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail193.hs
@@ -4,7 +4,7 @@
module ShouldFail where
-import List(inits)
+import Data.List(inits)
z :: [Int]
z = [x | x <- [3, 2, 1], then inits]
diff --git a/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail194.hs b/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail194.hs
index 05535961d6e..9166b18b4a8 100644
--- a/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail194.hs
+++ b/testsuite/tests/ghc-regress/typecheck/should_fail/tcfail194.hs
@@ -4,7 +4,7 @@
module ShouldFail where
-import List(take)
+import Data.List(take)
z = [x | x <- [1..10], then take 5 by x]
--
GitLab