diff options
Diffstat (limited to 'compiler/codeGen/StgCmmExtCode.hs')
| -rw-r--r-- | compiler/codeGen/StgCmmExtCode.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/codeGen/StgCmmExtCode.hs b/compiler/codeGen/StgCmmExtCode.hs index 2091d9b358..50015989e0 100644 --- a/compiler/codeGen/StgCmmExtCode.hs +++ b/compiler/codeGen/StgCmmExtCode.hs @@ -89,12 +89,12 @@ instance Functor CmmParse where fmap = liftM instance Applicative CmmParse where - pure = return + pure = returnExtFC (<*>) = ap instance Monad CmmParse where (>>=) = thenExtFC - return = returnExtFC + return = pure instance HasDynFlags CmmParse where getDynFlags = EC (\_ _ d -> do dflags <- getDynFlags |