diff options
Diffstat (limited to 'compiler/coreSyn/CoreLint.hs')
-rw-r--r-- | compiler/coreSyn/CoreLint.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/coreSyn/CoreLint.hs b/compiler/coreSyn/CoreLint.hs index ea1d9689b7..da08c21fca 100644 --- a/compiler/coreSyn/CoreLint.hs +++ b/compiler/coreSyn/CoreLint.hs @@ -1491,11 +1491,11 @@ instance Functor LintM where fmap = liftM instance Applicative LintM where - pure = return + pure x = LintM $ \ _ errs -> (Just x, errs) (<*>) = ap instance Monad LintM where - return x = LintM (\ _ errs -> (Just x, errs)) + return = pure fail err = failWithL (text err) m >>= k = LintM (\ env errs -> let (res, errs') = unLintM m env errs in |