[project @ 1998-04-07 21:40:31 by sof]

[ghc-hetmet.git] / ghc / compiler / utils / Outputable.lhs

diff --git a/ghc/compiler/utils/Outputable.lhs b/ghc/compiler/utils/Outputable.lhs
index e09d59d..c34404b 100644 (file)
--- 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