Commit 64f085a1 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix tests to run without mtl

parent b70dd33f
......@@ -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)
......
: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
<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.
{-# 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
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment