diff options
Diffstat (limited to 'compiler/deSugar/Coverage.hs')
-rw-r--r-- | compiler/deSugar/Coverage.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/deSugar/Coverage.hs b/compiler/deSugar/Coverage.hs index b9ef0f1c03..8d9f37d24e 100644 --- a/compiler/deSugar/Coverage.hs +++ b/compiler/deSugar/Coverage.hs @@ -1016,11 +1016,11 @@ instance Functor TM where fmap = liftM instance Applicative TM where - pure = return + pure a = TM $ \ _env st -> (a,noFVs,st) (<*>) = ap instance Monad TM where - return a = TM $ \ _env st -> (a,noFVs,st) + return = pure (TM m) >>= k = TM $ \ env st -> case m env st of (r1,fv1,st1) -> |