X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FOutputable.lhs;h=c34404b2f8e9970426cf029af65b5d8d9b352872;hb=ffe6bc6201801ef7f096e801cbe8cde182883c8f;hp=e09d59da17441debc32b81e9542c3d3ca534df2d;hpb=be33dbc967b4915cfdb0307ae1b7ae3cee651b8c;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs
index e09d59d..c34404b 100644
--- a/ghc/compiler/utils/Outputable.lhs
+++ b/ghc/compiler/utils/Outputable.lhs
@@ -246,6 +246,7 @@ class Outputable a where
 
 \begin{code}
 instance Outputable Bool where
+    ppr True  = ptext SLIT("True")
     ppr False = ptext SLIT("False")
 
 instance Outputable Int where