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:
9847ae3
)
(F)SLIT -> (f)sLit in RnSource
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 16:03:48 +0000
(16:03 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 16:03:48 +0000
(16:03 +0000)
compiler/rename/RnSource.lhs
patch
|
blob
|
history
diff --git
a/compiler/rename/RnSource.lhs
b/compiler/rename/RnSource.lhs
index
8a2d0f4
..
2f76920
100644
(file)
--- a/
compiler/rename/RnSource.lhs
+++ b/
compiler/rename/RnSource.lhs
@@
-329,8
+329,8
@@
rnSrcDeprecDecls decls
(map (\ (L loc (Deprecation rdr_name _)) -> L loc rdr_name) decls)
dupDeprecDecl (L loc _) rdr_name
(map (\ (L loc (Deprecation rdr_name _)) -> L loc rdr_name) decls)
dupDeprecDecl (L loc _) rdr_name
- = vcat [ptext SLIT("Multiple deprecation declarations for") <+> quotes (ppr rdr_name),
- ptext SLIT("also at ") <+> ppr loc]
+ = vcat [ptext (sLit "Multiple deprecation declarations for") <+> quotes (ppr rdr_name),
+ ptext (sLit "also at ") <+> ppr loc]
\end{code}
\end{code}
@@
-368,7
+368,7
@@
rnHsForeignDecl (ForeignExport name ty spec)
-- we add it to the free-variable list. It might, for example,
-- be imported from another module
-- we add it to the free-variable list. It might, for example,
-- be imported from another module
-fo_decl_msg name = ptext SLIT("In the foreign declaration for") <+> ppr name
+fo_decl_msg name = ptext (sLit "In the foreign declaration for") <+> ppr name
\end{code}
\end{code}
@@
-520,9
+520,9
@@
rnHsRuleDecl (HsRule rule_name act vars lhs fv_lhs rhs fv_rhs)
returnM (RuleBndrSig (L loc id) t', fvs)
badRuleVar name var
returnM (RuleBndrSig (L loc id) t', fvs)
badRuleVar name var
- = sep [ptext SLIT("Rule") <+> doubleQuotes (ftext name) <> colon,
- ptext SLIT("Forall'd variable") <+> quotes (ppr var) <+>
- ptext SLIT("does not appear on left hand side")]
+ = sep [ptext (sLit "Rule") <+> doubleQuotes (ftext name) <> colon,
+ ptext (sLit "Forall'd variable") <+> quotes (ppr var) <+>
+ ptext (sLit "does not appear on left hand side")]
\end{code}
Note [Rule LHS validity checking]
\end{code}
Note [Rule LHS validity checking]
@@
-583,11
+583,11
@@
validRuleLhs foralls lhs
-}
badRuleLhsErr name lhs bad_e
-}
badRuleLhsErr name lhs bad_e
- = sep [ptext SLIT("Rule") <+> ftext name <> colon,
- nest 4 (vcat [ptext SLIT("Illegal expression:") <+> ppr bad_e,
- ptext SLIT("in left-hand side:") <+> ppr lhs])]
+ = sep [ptext (sLit "Rule") <+> ftext name <> colon,
+ nest 4 (vcat [ptext (sLit "Illegal expression:") <+> ppr bad_e,
+ ptext (sLit "in left-hand side:") <+> ppr lhs])]
$$
$$
- ptext SLIT("LHS must be of form (f e1 .. en) where f is not forall'd")
+ ptext (sLit "LHS must be of form (f e1 .. en) where f is not forall'd")
\end{code}
\end{code}
@@
-782,8
+782,8
@@
rnTyClDecl (ClassDecl {tcdCtxt = context, tcdLName = cname,
at_doc = text "In the associated types for class" <+> ppr cname
badGadtStupidTheta tycon
at_doc = text "In the associated types for class" <+> ppr cname
badGadtStupidTheta tycon
- = vcat [ptext SLIT("No context is allowed on a GADT-style data declaration"),
- ptext SLIT("(You can put a context on each contructor, though.)")]
+ = vcat [ptext (sLit "No context is allowed on a GADT-style data declaration"),
+ ptext (sLit "(You can put a context on each contructor, though.)")]
\end{code}
%*********************************************************
\end{code}
%*********************************************************
@@
-942,7
+942,7
@@
rnATs ats = mapFvRn (wrapLocFstM rn_at) ats
noPatterns = text "Default definition for an associated synonym cannot have"
<+> text "type pattern"
noPatterns = text "Default definition for an associated synonym cannot have"
<+> text "type pattern"
-repeatedTyVar tv = ptext SLIT("Illegal repeated type variable") <+>
+repeatedTyVar tv = ptext (sLit "Illegal repeated type variable") <+>
quotes (ppr tv)
-- This data decl will parse OK
quotes (ppr tv)
-- This data decl will parse OK
@@
-958,7
+958,7
@@
repeatedTyVar tv = ptext SLIT("Illegal repeated type variable") <+>
checkConName name = checkErr (isRdrDataCon name) (badDataCon name)
badDataCon name
checkConName name = checkErr (isRdrDataCon name) (badDataCon name)
badDataCon name
- = hsep [ptext SLIT("Illegal data constructor name"), quotes (ppr name)]
+ = hsep [ptext (sLit "Illegal data constructor name"), quotes (ppr name)]
\end{code}
\end{code}
@@
-1065,8
+1065,8
@@
rnSplice (HsSplice n expr)
checkTH e what = returnM () -- OK
#else
checkTH e what -- Raise an error in a stage-1 compiler
checkTH e what = returnM () -- OK
#else
checkTH e what -- Raise an error in a stage-1 compiler
- = addErr (vcat [ptext SLIT("Template Haskell") <+> text what <+>
- ptext SLIT("illegal in a stage-1 compiler"),
+ = addErr (vcat [ptext (sLit "Template Haskell") <+> text what <+>
+ ptext (sLit "illegal in a stage-1 compiler"),
nest 2 (ppr e)])
#endif
\end{code}
nest 2 (ppr e)])
#endif
\end{code}