From d2c2c9372b2479adddc5cd6f6ecfbc4d7740ca32 Mon Sep 17 00:00:00 2001 From: simonpj Date: Thu, 5 Jul 2001 08:55:29 +0000 Subject: [PATCH] [project @ 2001-07-05 08:55:29 by simonpj] Correct spelling in error message --- ghc/compiler/parser/ParseUtil.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/ghc/compiler/parser/ParseUtil.lhs b/ghc/compiler/parser/ParseUtil.lhs index 73358bf..7334806 100644 --- 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') -- 1.7.10.4