[commit: ghc] master: testsuite: fix T5751 build failure (AMP) (a1b5391)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/a1b539142d7853bc02c36f1b3e8d489a9864f0e9/ghc

>---------------------------------------------------------------

commit a1b539142d7853bc02c36f1b3e8d489a9864f0e9
Author: Sergei Trofimovich <slyfox at gentoo.org>
Date:   Mon Oct 6 21:46:26 2014 +0100

    testsuite: fix T5751 build failure (AMP)
    
    Signed-off-by: Sergei Trofimovich <slyfox at gentoo.org>


>---------------------------------------------------------------

a1b539142d7853bc02c36f1b3e8d489a9864f0e9
 testsuite/tests/typecheck/should_run/T5751.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testsuite/tests/typecheck/should_run/T5751.hs b/testsuite/tests/typecheck/should_run/T5751.hs
index f620d8f..cf11421 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"