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:
31ac390
)
[project @ 2001-07-05 08:55:29 by simonpj]
author
simonpj
<unknown>
Thu, 5 Jul 2001 08:55:29 +0000
(08:55 +0000)
committer
simonpj
<unknown>
Thu, 5 Jul 2001 08:55:29 +0000
(08:55 +0000)
Correct spelling in error message
ghc/compiler/parser/ParseUtil.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/parser/ParseUtil.lhs
b/ghc/compiler/parser/ParseUtil.lhs
index
73358bf
..
7334806
100644
(file)
--- a/
ghc/compiler/parser/ParseUtil.lhs
+++ b/
ghc/compiler/parser/ParseUtil.lhs
@@
-158,7
+158,7
@@
checkSimple t _ = parseError "Illegal left hand side in data/newtype declaration
checkDo [] = parseError "Empty 'do' construct"
checkDo [ExprStmt e l] = returnP [ResultStmt e l]
-checkDo [s] = parseError "The last statment in a 'do' construct must be an expression"
+checkDo [s] = parseError "The last statement in a 'do' construct must be an expression"
checkDo (s:ss) = checkDo ss `thenP` \ ss' ->
returnP (s:ss')