Add Outputable GhcMode instance

dmpots · Sep 17, 2008 · 4ec6ab0 · 4ec6ab0
1 parent 847e4e1
commit 4ec6ab0
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
@@ -450,6 +450,11 @@ data GhcMode
   | MkDepend            -- ^ @ghc -M@, see "Finder" for why we need this
   deriving Eq
 
+instance Outputable GhcMode where
+  ppr CompManager = ptext (sLit "CompManager")
+  ppr OneShot     = ptext (sLit "OneShot")
+  ppr MkDepend    = ptext (sLit "MkDepend")
+
 isOneShot :: GhcMode -> Bool
 isOneShot OneShot = True
 isOneShot _other  = False