Commit de400dba authored by Ian Lynagh's avatar Ian Lynagh
Browse files

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

parent bf1cbf5f
......@@ -127,9 +127,9 @@ instance Outputable Var where
ppr var = ppr (varName var) <+> ifPprDebug (brackets extra)
where
extra = case var of
GlobalId {} -> ptext SLIT("gid")
LocalId {} -> ptext SLIT("lid")
TyVar {} -> ptext SLIT("tv")
GlobalId {} -> ptext (sLit "gid")
LocalId {} -> ptext (sLit "lid")
TyVar {} -> ptext (sLit "tv")
TcTyVar {tcTyVarDetails = details} -> pprTcTyVarDetails details
instance Show Var where
......@@ -247,7 +247,7 @@ mkWildCoVar :: Kind -> TyVar
-- so its unique doesn't matter
mkWildCoVar kind
= ASSERT( isCoercionKind kind )
TyVar { varName = mkSysTvName wild_uniq FSLIT("co_wild"),
TyVar { varName = mkSysTvName wild_uniq (fsLit "co_wild"),
realUnique = _ILIT(1),
varType = kind,
isCoercionVar = True }
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment