Fix tests to run without mtl
authorIan Lynagh <igloo@earth.li>
Sat, 19 May 2012 12:41:35 +0000 (13:41 +0100)
committerIan Lynagh <igloo@earth.li>
Sat, 19 May 2012 12:41:35 +0000 (13:41 +0100)
testsuite/tests/codeGen/should_run/cgrun068.hs
testsuite/tests/ghci/scripts/T5979.script
testsuite/tests/ghci/scripts/T5979.stderr
testsuite/tests/typecheck/should_fail/T5300.hs
testsuite/tests/typecheck/should_fail/T5691.hs

index f5096ad..9d9a0f9 100644 (file)
@@ -31,7 +31,8 @@ import Debug.Trace (trace)
 
 import Control.Exception (assert)
 import Control.Monad
-import Control.Monad.State.Strict
+import Control.Monad.Trans.State.Strict
+import Control.Monad.Trans.Class
 import GHC.Exts
 import GHC.ST hiding (liftST)
 import Prelude hiding (length, read)
index a233d3d..2873d7b 100644 (file)
@@ -1,4 +1,4 @@
 :set -XPackageImports
-import "nonexisting" Control.Monad.State
-import "mtl" Control.Monad.State
-import "mtl" Control.Monad.Reader
+import "nonexisting" Control.Monad.Trans.State
+import "transformers" Control.Monad.Trans.State
+import "transformers" Control.Monad.Trans.Reader
index 30bd301..84f8c6b 100644 (file)
@@ -1,4 +1,4 @@
 
 <no location info>:
-    Could not find module `Control.Monad.State'
+    Could not find module `Control.Monad.Trans.State'
     It is not a module in the current program, or in any known package.
index d052d84..b15713d 100644 (file)
@@ -1,7 +1,7 @@
 {-# LANGUAGE FunctionalDependencies, MultiParamTypeClasses #-}
 module T5300 where
 
-import Control.Monad.State (StateT)
+import Control.Monad.Trans.State (StateT)
 
 class C1 a b c | a -> b
 class C2 a b c
index c63ba7b..49fc776 100644 (file)
@@ -4,7 +4,7 @@ module GHCBug where
 
 import Control.Applicative as Ap
 import Control.Monad (MonadPlus, mplus, mzero)
-import Control.Monad.Identity (Identity, runIdentity)
+import Data.Functor.Identity (Identity, runIdentity)
 
 newtype PrintRuleInterp v = MkPRI { printRule_ :: Int -> String }
 class Test p where