From bf1cbf5f0ae663c65167d15c3051d24abbe986ba Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 12 Apr 2008 12:10:50 +0000 Subject: [PATCH] (F)SLIT -> (f)sLit in Name --- compiler/basicTypes/Name.lhs | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/compiler/basicTypes/Name.lhs b/compiler/basicTypes/Name.lhs index 7dc6fe9..aa253cf 100644 --- a/compiler/basicTypes/Name.lhs +++ b/compiler/basicTypes/Name.lhs @@ -35,8 +35,6 @@ module Name ( getSrcLoc, getSrcSpan, getOccString ) where -#include "HsVersions.h" - import {-# SOURCE #-} TypeRep( TyThing ) import OccName @@ -361,7 +359,7 @@ pprExternal sty uniq mod occ is_wired is_builtin -- ToDo: maybe we could print all wired-in things unqualified -- in code style, to reduce symbol table bloat? | debugStyle sty = ppr mod <> dot <> ppr_occ_name occ - <> braces (hsep [if is_wired then ptext SLIT("(w)") else empty, + <> braces (hsep [if is_wired then ptext (sLit "(w)") else empty, pprNameSpaceBrief (occNameSpace occ), pprUnique uniq]) | BuiltInSyntax <- is_builtin = ppr_occ_name occ @@ -411,8 +409,8 @@ pprNameLoc :: Name -> SDoc pprNameLoc name | isGoodSrcSpan loc = pprDefnLoc loc | isInternalName name || isSystemName name - = ptext SLIT("") - | otherwise = ptext SLIT("Defined in ") <> ppr (nameModule name) + = ptext (sLit "") + | otherwise = ptext (sLit "Defined in ") <> ppr (nameModule name) where loc = nameSrcSpan name \end{code} -- 1.7.10.4