From: simonpj@microsoft.com <unknown>
Date: Wed, 17 Sep 2008 16:18:47 +0000 (+0000)
Subject: Add Outputable GhcMode instance
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=4ec6ab05e69bed9ca2fb807438cd677c3b25672a

Add Outputable GhcMode instance
---

diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs
index 9e2d24b..dba0012 100644
--- 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