batchMsg :: Messager
batchMsg hsc_env mod_index recomp mod_summary =
    case recomp of
        MustCompile -> showMsg "Compiling " ""
        UpToDate
            | verbosity (hsc_dflags hsc_env) >= 2 -> showMsg "Skipping  " ""
            | otherwise -> return ()
        RecompBecause reason -> showMsg "Compiling " (" [" ++ reason ++ "]")
    where
        dflags = hsc_dflags hsc_env
        showMsg msg reason =
            compilationProgressMsg dflags $
              showSDocWithColor dflags $
                colored colYellowFg (text $
                  showModuleIndex mod_index ++ msg ++
                  showModMsg dflags (hscTarget dflags) (recompileRequired recomp) mod_summary ++
                  reason)

--------------------------------------------------------------
-- FrontEnds
--------------------------------------------------------------
batchMsg :: Messager
batchMsg hsc_env mod_index recomp mod_summary =
    case recomp of
        MustCompile -> showMsg "Compiling " ""
        UpToDate
            | verbosity (hsc_dflags hsc_env) >= 2 -> showMsg "Skipping  " ""
            | otherwise -> return ()
        RecompBecause reason -> showMsg "Compiling " (" [" ++ reason ++ "]")
    where
        dflags = hsc_dflags hsc_env
        showMsg msg reason =
            compilationProgressMsg dflags $
              showSDocWithColor dflags $
                colored colYellowFg (text $
                  showModuleIndex mod_index ++ msg ++
                  showModMsg dflags (hscTarget dflags) (recompileRequired recomp) mod_summary ++
                  reason)

--------------------------------------------------------------
-- FrontEnds
--------------------------------------------------------------
batchMsg hsc_env mod_index recomp mod_summary =
    case recomp of
        MustCompile -> showMsg "Compiling " ""
        UpToDate
            | verbosity (hsc_dflags hsc_env) >= 2 -> showMsg "Skipping  " ""
            | otherwise -> return ()
        RecompBecause reason -> showMsg "Compiling " (" [" ++ reason ++ "]")
    where
        dflags = hsc_dflags hsc_env
        showMsg msg reason =
            compilationProgressMsg dflags $
              showSDocWithColor dflags $
                colored colYellowFg (text $
                  showModuleIndex mod_index ++ msg ++
                  showModMsg dflags (hscTarget dflags) (recompileRequired recomp) mod_summary ++
                  reason)

--------------------------------------------------------------
-- FrontEnds
--------------------------------------------------------------