From: simonm <unknown>
Date: Mon, 23 Feb 1998 16:49:38 +0000 (+0000)
Subject: [project @ 1998-02-23 16:49:38 by simonm]
X-Git-Tag: Approx_2487_patches~925
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=a89cd8f7e6d851e4ba98a6312f28bcf0adbcad03;p=ghc-hetmet.git

[project @ 1998-02-23 16:49:38 by simonm]
add missing 'True' case to instance Outputable Bool.
---

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