Improve improvement in the constraint solver
[ghc.git] / testsuite / tests / typecheck / should_fail / T5691.hs
index c63ba7b..88cd3d7 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
@@ -12,7 +12,7 @@ class Test p where
 
 instance Test PrintRuleInterp where
   test (f :: p a) =
-    MkPRI $ printRule_ f 
+    MkPRI $ printRule_ f
 
 
 newtype RecDecParser a = MkRD {