diff options
Diffstat (limited to 'compiler/cmm/CmmLint.hs')
| -rw-r--r-- | compiler/cmm/CmmLint.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/cmm/CmmLint.hs b/compiler/cmm/CmmLint.hs index 63a3ff5de3..a2ccfbeecf 100644 --- a/compiler/cmm/CmmLint.hs +++ b/compiler/cmm/CmmLint.hs @@ -217,7 +217,7 @@ instance Functor CmmLint where fmap = liftM instance Applicative CmmLint where - pure = return + pure a = CmmLint (\_ -> Right a) (<*>) = ap instance Monad CmmLint where @@ -225,7 +225,7 @@ instance Monad CmmLint where case m dflags of Left e -> Left e Right a -> unCL (k a) dflags - return a = CmmLint (\_ -> Right a) + return = pure instance HasDynFlags CmmLint where getDynFlags = CmmLint (\dflags -> Right dflags) |