Commit 4ec6ab05 authored by simonpj@microsoft.com's avatar simonpj@microsoft.com
Browse files

Add Outputable GhcMode instance

parent 847e4e16
...@@ -450,6 +450,11 @@ data GhcMode ...@@ -450,6 +450,11 @@ data GhcMode
| MkDepend -- ^ @ghc -M@, see "Finder" for why we need this | MkDepend -- ^ @ghc -M@, see "Finder" for why we need this
deriving Eq 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 :: GhcMode -> Bool
isOneShot OneShot = True isOneShot OneShot = True
isOneShot _other = False isOneShot _other = False
......
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