diff options
Diffstat (limited to 'testsuite/tests/concurrent')
| -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 |