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:
7901151
)
(F)SLIT -> (f)sLit in TcArrows
author
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 16:24:03 +0000
(16:24 +0000)
committer
Ian Lynagh
<igloo@earth.li>
Sat, 12 Apr 2008 16:24:03 +0000
(16:24 +0000)
compiler/typecheck/TcArrows.lhs
patch
|
blob
|
history
diff --git
a/compiler/typecheck/TcArrows.lhs
b/compiler/typecheck/TcArrows.lhs
index
11daed7
..
0b50b32
100644
(file)
--- a/
compiler/typecheck/TcArrows.lhs
+++ b/
compiler/typecheck/TcArrows.lhs
@@
-14,8
+14,6
@@
Typecheck arrow notation
module TcArrows ( tcProc ) where
module TcArrows ( tcProc ) where
-#include "HsVersions.h"
-
import {-# SOURCE #-} TcExpr( tcMonoExpr, tcInferRho )
import HsSyn
import {-# SOURCE #-} TcExpr( tcMonoExpr, tcInferRho )
import HsSyn
@@
-319,8
+317,8
@@
tc_cmd env cmd@(HsArrForm expr fixity cmd_args) (cmd_stk, res_ty)
-- This is where expressions that aren't commands get rejected
tc_cmd env cmd _
-- This is where expressions that aren't commands get rejected
tc_cmd env cmd _
- = failWithTc (vcat [ptext SLIT("The expression"), nest 2 (ppr cmd),
- ptext SLIT("was found where an arrow command was expected")])
+ = failWithTc (vcat [ptext (sLit "The expression"), nest 2 (ppr cmd),
+ ptext (sLit "was found where an arrow command was expected")])
\end{code}
\end{code}
@@
-346,20
+344,20
@@
arrowTyConKind = mkArrowKinds [liftedTypeKind, liftedTypeKind] liftedTypeKind
%************************************************************************
\begin{code}
%************************************************************************
\begin{code}
-cmdCtxt cmd = ptext SLIT("In the command:") <+> ppr cmd
+cmdCtxt cmd = ptext (sLit "In the command:") <+> ppr cmd
caseScrutCtxt cmd
caseScrutCtxt cmd
- = hang (ptext SLIT("In the scrutinee of a case command:")) 4 (ppr cmd)
+ = hang (ptext (sLit "In the scrutinee of a case command:")) 4 (ppr cmd)
nonEmptyCmdStkErr cmd
nonEmptyCmdStkErr cmd
- = hang (ptext SLIT("Non-empty command stack at command:"))
+ = hang (ptext (sLit "Non-empty command stack at command:"))
4 (ppr cmd)
kappaUnderflow cmd
4 (ppr cmd)
kappaUnderflow cmd
- = hang (ptext SLIT("Command stack underflow at command:"))
+ = hang (ptext (sLit "Command stack underflow at command:"))
4 (ppr cmd)
badFormFun i tup_ty'
4 (ppr cmd)
badFormFun i tup_ty'
- = hang (ptext SLIT("The type of the") <+> speakNth i <+> ptext SLIT("argument of a command form has the wrong shape"))
- 4 (ptext SLIT("Argument type:") <+> ppr tup_ty')
+ = hang (ptext (sLit "The type of the") <+> speakNth i <+> ptext (sLit "argument of a command form has the wrong shape"))
+ 4 (ptext (sLit "Argument type:") <+> ppr tup_ty')
\end{code}
\end{code}