diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-07-19 19:44:56 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2015-07-20 20:18:57 +0200 |
| commit | d71d9a9e2966f56d13cbe7a4642562d3abddb60c (patch) | |
| tree | b68b46672e5b1253fa297a9f215aa2c1fd447f94 /testsuite/tests/concurrent/prog002 | |
| parent | 96de8098c58a04dd028d6fc005dafda29c7a13ba (diff) | |
| download | haskell-d71d9a9e2966f56d13cbe7a4642562d3abddb60c.tar.gz | |
Testsuite: fix concprog002 (AMP)
Requires random to be installed.
Diffstat (limited to 'testsuite/tests/concurrent/prog002')
| -rw-r--r-- | testsuite/tests/concurrent/prog002/Thread.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/testsuite/tests/concurrent/prog002/Thread.hs b/testsuite/tests/concurrent/prog002/Thread.hs index 9e342ac977..301e8441b6 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 |