diff options
Diffstat (limited to 'compiler/simplCore/SimplMonad.hs')
| -rw-r--r-- | compiler/simplCore/SimplMonad.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/compiler/simplCore/SimplMonad.hs b/compiler/simplCore/SimplMonad.hs index c28f99f9dd..732805e9ee 100644 --- a/compiler/simplCore/SimplMonad.hs +++ b/compiler/simplCore/SimplMonad.hs @@ -4,6 +4,7 @@ \section[SimplMonad]{The simplifier Monad} -} +{-# LANGUAGE DeriveFunctor #-} module SimplMonad ( -- The monad SimplM, @@ -37,7 +38,7 @@ import MonadUtils import ErrUtils as Err import Panic (throwGhcExceptionIO, GhcException (..)) import BasicTypes ( IntWithInf, treatZeroAsInf, mkIntWithInf ) -import Control.Monad ( liftM, ap ) +import Control.Monad ( ap ) {- ************************************************************************ @@ -57,6 +58,7 @@ newtype SimplM result -> SimplCount -> IO (result, UniqSupply, SimplCount)} -- we only need IO here for dump output + deriving (Functor) data SimplTopEnv = STE { st_flags :: DynFlags @@ -104,9 +106,6 @@ computeMaxTicks dflags size {-# INLINE returnSmpl #-} -instance Functor SimplM where - fmap = liftM - instance Applicative SimplM where pure = returnSmpl (<*>) = ap |