From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 12:35:07 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in CoreSyn
X-Git-Tag: 2008-05-28~322
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=6c9e4b5ab835c220ce849537b5d885c9d5382bef

(F)SLIT -> (f)sLit in CoreSyn
---

diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index 86a7e9d..f732a95 100644
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -388,7 +388,7 @@ neverUnfold _                                   = False
 instance Outputable AltCon where
   ppr (DataAlt dc) = ppr dc
   ppr (LitAlt lit) = ppr lit
-  ppr DEFAULT      = ptext SLIT("__DEFAULT")
+  ppr DEFAULT      = ptext (sLit "__DEFAULT")
 
 instance Show AltCon where
   showsPrec p con = showsPrecSDoc p (ppr con)