From 8ad973aef4ff86b5a3e2aa6276d9dd8c99732eca Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 14:10:45 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in InstEnv --- compiler/types/InstEnv.lhs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4