projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2001-07-05 08:55:29 by simonpj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
parser
/
ParseUtil.lhs
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 [] = 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')
checkDo (s:ss) = checkDo ss `thenP` \ ss' ->
returnP (s:ss')