diff options
Diffstat (limited to 'compiler/GHC/Driver/Monad.hs')
| -rw-r--r-- | compiler/GHC/Driver/Monad.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/GHC/Driver/Monad.hs b/compiler/GHC/Driver/Monad.hs index 2a4c2c04d6..39ccdc7c21 100644 --- a/compiler/GHC/Driver/Monad.hs +++ b/compiler/GHC/Driver/Monad.hs @@ -127,11 +127,11 @@ putMsgM doc = do liftIO $ putMsg logger dflags doc -- | Put a log message -putLogMsgM :: GhcMonad m => WarnReason -> Severity -> SrcSpan -> SDoc -> m () -putLogMsgM reason sev loc doc = do +putLogMsgM :: GhcMonad m => MessageClass -> SrcSpan -> SDoc -> m () +putLogMsgM msg_class loc doc = do dflags <- getDynFlags logger <- getLogger - liftIO $ putLogMsg logger dflags reason sev loc doc + liftIO $ putLogMsg logger dflags msg_class loc doc -- | Time an action withTimingM :: GhcMonad m => SDoc -> (b -> ()) -> m b -> m b |