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:
a64d06b
)
(F)SLIT -> (f)sLit in VarEnv
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 12:14:37 +0000
(12:14 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 12:14:37 +0000
(12:14 +0000)
compiler/basicTypes/VarEnv.lhs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/VarEnv.lhs
b/compiler/basicTypes/VarEnv.lhs
index
bb988b2
..
8274661
100644
(file)
--- a/
compiler/basicTypes/VarEnv.lhs
+++ b/
compiler/basicTypes/VarEnv.lhs
@@
-34,8
+34,6
@@
module VarEnv (
TidyEnv, emptyTidyEnv
) where
-#include "HsVersions.h"
-
import OccName
import Var
import VarSet
@@
-63,7
+61,7
@@
data InScopeSet = InScope (VarEnv Var) FastInt
-- INVARIANT: it's not zero; we use it as a multiplier in uniqAway
instance Outputable InScopeSet where
- ppr (InScope s _) = ptext SLIT("InScope") <+> ppr s
+ ppr (InScope s _) = ptext (sLit "InScope") <+> ppr s
emptyInScopeSet :: InScopeSet
emptyInScopeSet = InScope emptyVarSet (_ILIT(1))