projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
d033f3b
)
(F)SLIT -> (f)sLit in Name
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 12:10:50 +0000
(12:10 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 12:10:50 +0000
(12:10 +0000)
compiler/basicTypes/Name.lhs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/Name.lhs
b/compiler/basicTypes/Name.lhs
index
7dc6fe9
..
aa253cf
100644
(file)
--- a/
compiler/basicTypes/Name.lhs
+++ b/
compiler/basicTypes/Name.lhs
@@
-35,8
+35,6
@@
module Name (
getSrcLoc, getSrcSpan, getOccString
) where
getSrcLoc, getSrcSpan, getOccString
) where
-#include "HsVersions.h"
-
import {-# SOURCE #-} TypeRep( TyThing )
import OccName
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
-- 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
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
pprNameLoc name
| isGoodSrcSpan loc = pprDefnLoc loc
| isInternalName name || isSystemName name
- = ptext SLIT("<no location info>")
- | otherwise = ptext SLIT("Defined in ") <> ppr (nameModule name)
+ = ptext (sLit "<no location info>")
+ | otherwise = ptext (sLit "Defined in ") <> ppr (nameModule name)
where loc = nameSrcSpan name
\end{code}
where loc = nameSrcSpan name
\end{code}