Remove the haskell98 dependency from more tests
authorIan Lynagh <igloo@earth.li>
Sat, 5 Feb 2011 20:50:14 +0000 (20:50 +0000)
committerIan Lynagh <igloo@earth.li>
Sat, 5 Feb 2011 20:50:14 +0000 (20:50 +0000)
19 files changed:
testsuite/tests/ghc-regress/array/should_run/arr016.hs
testsuite/tests/ghc-regress/cabal/pkg01.hs
testsuite/tests/ghc-regress/driver/recomp003/A.hs
testsuite/tests/ghc-regress/driver/recomp003/Makefile
testsuite/tests/ghc-regress/driver/recomp003/all.T
testsuite/tests/ghc-regress/ffi/should_run/fed001.hs
testsuite/tests/ghc-regress/indexed-types/should_compile/HO.hs
testsuite/tests/ghc-regress/indexed-types/should_compile/HO.stderr
testsuite/tests/ghc-regress/indexed-types/should_run/GMapAssoc.hs
testsuite/tests/ghc-regress/indexed-types/should_run/GMapTop.hs
testsuite/tests/ghc-regress/indexed-types/should_run/T4235.hs
testsuite/tests/ghc-regress/lib/Data.List/genericNegative001.hs
testsuite/tests/ghc-regress/mdo/should_compile/mdo005.hs
testsuite/tests/ghc-regress/mdo/should_run/mdorun001.hs
testsuite/tests/ghc-regress/rebindable/DoRestrictedM.hs
testsuite/tests/ghc-regress/simplCore/prog002/Simpl009Help.hs
testsuite/tests/ghc-regress/simplCore/prog002/simpl009.hs
testsuite/tests/ghc-regress/stranal/should_run/strun003.hs
testsuite/tests/ghc-regress/th/T4188.hs

index 7bdfb71..81e3242 100644 (file)
@@ -7,14 +7,14 @@ module Main where
  -
  -}
 
-import qualified Array
-import List
-import Monad ( liftM2, liftM3, liftM4 )
-import Random
+import qualified Data.Array as Array
+import Data.List
+import Control.Monad ( liftM2, liftM3, liftM4 )
+import System.Random
 
 
-import Ix
-import List( (\\) )
+import Data.Ix
+import Data.List( (\\) )
 
 infixl 9  !, //
 infixr 0 ==>
index cc3fca5..b06b8e0 100644 (file)
@@ -1,3 +1,3 @@
-module Char where
--- conflicts with module from haskell98 package
-import IO
+module Data.Map where
+-- conflicts with module from containers package
+import Data.Set
index 188de26..49c31a2 100644 (file)
@@ -8,10 +8,10 @@ OBJSUFFIX = .o
 # recompilation.  Part of bug #1372.
 recomp003:
        $(RM) A.hi A$(OBJSUFFIX) out
-       $(RM) Char.hs Char.hi Char$(OBJSUFFIX)
+       $(RM) Data/Char.hs Data/Char.hi Data/Char$(OBJSUFFIX)
        '$(TEST_HC)' -c A.hs
-       echo "module Char where" >Char.hs
-       '$(TEST_HC)' -c Char.hs
+       echo "module Data.Char where" > Data/Char.hs
+       '$(TEST_HC)' -c Data/Char.hs
        # Should now recompile A.hs, because Char is now a home module:
        '$(TEST_HC)' -c A.hs 2>err
        @if grep NOT err; then false; fi
index 68b70d7..c6653c2 100644 (file)
@@ -1,4 +1,6 @@
 test('recomp003',
-     extra_clean(['Char.hs', 'err']),
+     extra_clean(['Data/Char.hs', 'Data/Char.hi', 'Data/Char.o',
+                  'A.o', 'A.hi',
+                  'err']),
      run_command,
      ['$MAKE -s --no-print-directory recomp003'])
index bb9c215..a832c58 100644 (file)
@@ -1,5 +1,5 @@
+import Control.Monad
 import Foreign
-import Monad
 import Foreign.Ptr
 
 type CInt  = Int32
index 42fea96..cb14fb7 100644 (file)
@@ -1,5 +1,5 @@
 
-HO.hs:15:1:
+HO.hs:14:1:
     Alas, GHC 7.0 still cannot handle equality superclasses:
       SMMonad (SMRef m) ~ m
     In the context: (SMMonad (SMRef m) ~ m)
index d0885cb..404818e 100644 (file)
@@ -3,7 +3,7 @@
 module Main where
 
 import Prelude hiding (lookup)
-import Char (ord)
+import Data.Char (ord)
 import qualified Data.Map as Map
 
 
index 1f9ab97..9ce8309 100644 (file)
@@ -3,7 +3,7 @@
 module Main where
 
 import Prelude hiding (lookup)
-import Char (ord)
+import Data.Char (ord)
 import qualified Data.Map as Map
 
 
index 8a6bcac..45ba33d 100644 (file)
@@ -1,7 +1,7 @@
 {-# LANGUAGE TypeFamilies, StandaloneDeriving, FlexibleInstances, GADTs #-}
 module Main where
 
-import Ix
+import Data.Ix
 
 -- Deriving Enum with phantom type parameter
 data T a = R | S | T deriving( Enum, Show )
index 24b96e2..f59a42f 100644 (file)
@@ -1,6 +1,6 @@
 -- Test for http://hackage.haskell.org/trac/ghc/ticket/2533
 import System.Environment
-import List
+import Data.List
 main = do 
  (n:_) <- getArgs
  print (genericTake (read n) "none taken")
index 43ead76..0b6301b 100644 (file)
@@ -5,7 +5,7 @@
 module Main (main) where
 
 import Control.Monad.Fix 
-import Maybe ( fromJust )
+import Data.Maybe ( fromJust )
 
 t = mdo x <- fromJust (mdo x <- Just (1:x)
                           return (take 4 x))
index 9386d26..8527e5b 100644 (file)
@@ -4,7 +4,7 @@ module Main(main) where
 
 import Control.Monad.Fix
 import Data.Array.IO
-import Monad
+import Control.Monad
 
 norm a = mdo (_, sz) <- getBounds a
             s <- ioaA 1 s sz 0
index fb1ba3f..dea2b1e 100644 (file)
@@ -11,7 +11,7 @@
 
 module DoRestrictedM where
 
-import List
+import Data.List
 import Prelude (const, String, ($), (.), Maybe(..))
 import qualified Prelude
 import qualified Data.Set as Set
index 931b992..ac75943 100644 (file)
@@ -4,7 +4,7 @@
 
 module Simpl009Help where
   
-import Monad
+import Control.Monad
 
 newtype Parser s a
   = Parser (forall res . (a -> [String] -> P s res) -> [String] -> P s res)
index 33b6072..bac2baf 100644 (file)
@@ -9,7 +9,7 @@
 
 module FormParse where
   
-import Monad
+import Control.Monad
 import Simpl009Help
 
 identifier :: Parser Char Char
index 07b4875..eaedd59 100644 (file)
@@ -5,7 +5,9 @@
 -- See the io_hack_reqd in DmdAnal.lhs
 
 module Main where
-import System
+
+import System.Environment
+import System.Exit
 
 main    = do
             args <- getArgs
index bc0f416..73fd925 100644 (file)
@@ -3,7 +3,7 @@
 module T4188 where\r
 \r
 import Language.Haskell.TH\r
-import IO\r
+import System.IO\r
 \r
 class C a where {}\r
 \r