diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-07-29 20:15:03 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-07-29 20:15:03 +0000 |
| commit | 751203ddcf825e8e5e1b0d4601b1e0e8cbd05a82 (patch) | |
| tree | 61ea1dd36d25e19353fed9fa13030a2199a67a17 /compiler/main/DriverPhases.hs | |
| parent | 70249b050422f2abba670e5fdb3c5853ceeb662c (diff) | |
| download | haskell-751203ddcf825e8e5e1b0d4601b1e0e8cbd05a82.tar.gz | |
Add a debugTrace for the phases that we run
Diffstat (limited to 'compiler/main/DriverPhases.hs')
| -rw-r--r-- | compiler/main/DriverPhases.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/main/DriverPhases.hs b/compiler/main/DriverPhases.hs index 1532c2fed8..eb217ab804 100644 --- a/compiler/main/DriverPhases.hs +++ b/compiler/main/DriverPhases.hs @@ -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") |