From: Ian Lynagh <igloo@earth.li>
Date: Sat, 12 Apr 2008 14:10:45 +0000 (+0000)
Subject: (F)SLIT -> (f)sLit in InstEnv
X-Git-Tag: 2008-05-28~281
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=8ad973aef4ff86b5a3e2aa6276d9dd8c99732eca

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

diff --git a/compiler/types/InstEnv.lhs b/compiler/types/InstEnv.lhs
index c11218d..774808d 100644
--- a/compiler/types/InstEnv.lhs
+++ b/compiler/types/InstEnv.lhs
@@ -133,13 +133,13 @@ pprInstance :: Instance -> SDoc
 -- Prints the Instance as an instance declaration
 pprInstance ispec
   = hang (pprInstanceHdr ispec)
-	2 (ptext SLIT("--") <+> pprNameLoc (getName ispec))
+	2 (ptext (sLit "--") <+> pprNameLoc (getName ispec))
 
 -- * pprInstanceHdr is used in VStudio to populate the ClassView tree
 pprInstanceHdr :: Instance -> SDoc
 -- Prints the Instance as an instance declaration
 pprInstanceHdr ispec@(Instance { is_flag = flag })
-  = ptext SLIT("instance") <+> ppr flag
+  = ptext (sLit "instance") <+> ppr flag
     <+> sep [pprThetaArrow theta, pprClassPred clas tys]
   where
     (_, theta, clas, tys) = instanceHead ispec