diff options
| author | Sergei Trofimovich <slyfox@gentoo.org> | 2014-10-06 21:46:26 +0100 |
|---|---|---|
| committer | Sergei Trofimovich <slyfox@gentoo.org> | 2014-10-06 22:03:05 +0100 |
| commit | a1b539142d7853bc02c36f1b3e8d489a9864f0e9 (patch) | |
| tree | 18ebdd473f57a4c5b5ffc2efc4a14e4e115948f7 | |
| parent | 6a36636489682a885f5be59ff1cb0372e23a19db (diff) | |
| download | haskell-a1b539142d7853bc02c36f1b3e8d489a9864f0e9.tar.gz | |
testsuite: fix T5751 build failure (AMP)
Signed-off-by: Sergei Trofimovich <slyfox@gentoo.org>
| -rw-r--r-- | testsuite/tests/typecheck/should_run/T5751.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/testsuite/tests/typecheck/should_run/T5751.hs b/testsuite/tests/typecheck/should_run/T5751.hs index f620d8fb63..cf1142195b 100644 --- a/testsuite/tests/typecheck/should_run/T5751.hs +++ b/testsuite/tests/typecheck/should_run/T5751.hs @@ -12,7 +12,7 @@ class XMLGenerator m where genElement :: (Maybe String, String) -> m () newtype IdentityT m a = IdentityT { runIdentityT :: m a } - deriving (Monad, MonadIO) + deriving (Functor, Applicative, Monad, MonadIO) instance (MonadIO m) => (XMLGenerator (IdentityT m)) where genElement _ = liftIO $ putStrLn "in genElement" |