[commit: ghc] master: Testsuite: fix concprog002 (AMP) (d71d9a9)

[git at git.haskell.org]

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

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

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

commit d71d9a9e2966f56d13cbe7a4642562d3abddb60c
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date:   Sun Jul 19 19:44:56 2015 +0200

    Testsuite: fix concprog002 (AMP)
    
    Requires random to be installed.


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

d71d9a9e2966f56d13cbe7a4642562d3abddb60c
 testsuite/tests/concurrent/prog002/Thread.hs | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/testsuite/tests/concurrent/prog002/Thread.hs b/testsuite/tests/concurrent/prog002/Thread.hs
index 9e342ac..301e844 100644
--- a/testsuite/tests/concurrent/prog002/Thread.hs
+++ b/testsuite/tests/concurrent/prog002/Thread.hs
@@ -14,6 +14,13 @@ data ThreadTree req rsp m =
 ----------------------------------
 newtype ContM req rsp m a = ContM ((a-> ThreadTree req rsp m)-> ThreadTree req rsp m)
 
+instance Functor (ContM req rsp m) where
+   fmap = undefined
+
+instance Applicative (ContM req rsp m) where
+   pure  = undefined
+   (<*>) = undefined
+
 instance Monad m => Monad (ContM req rsp m) where
    m >>= f = contmBind m f
    return  = contmReturn