Commit 751203dd authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a debugTrace for the phases that we run

parent 70249b05
......@@ -35,7 +35,7 @@ module DriverPhases (
#include "HsVersions.h"
import Panic ( panic )
import Outputable
import System.FilePath
-----------------------------------------------------------------------------
......@@ -91,6 +91,9 @@ data Phase
| StopLn -- Stop, but linking will follow, so generate .o file
deriving (Eq, Show)
instance Outputable Phase where
ppr p = text (show p)
anyHsc :: Phase
anyHsc = Hsc (panic "anyHsc")
......
......@@ -581,7 +581,9 @@ pipeLoop hsc_env phase stop_phase
" but I wanted to stop at phase " ++ show stop_phase)
| otherwise
= do (next_phase, dflags', maybe_loc, output_fn)
= do liftIO $ debugTraceMsg (hsc_dflags hsc_env) 4
(ptext (sLit "Running phase") <+> ppr phase)
(next_phase, dflags', maybe_loc, output_fn)
<- runPhase phase stop_phase hsc_env orig_basename
orig_suff input_fn orig_get_output_fn maybe_loc
let hsc_env' = hsc_env {hsc_dflags = dflags'}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment