[project @ 2001-07-05 08:55:29 by simonpj]

Correct spelling in error message

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')