From: simonpj <unknown>
Date: Thu, 5 Jul 2001 08:55:29 +0000 (+0000)
Subject: [project @ 2001-07-05 08:55:29 by simonpj]
X-Git-Tag: Approximately_9120_patches~1611
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d2c2c9372b2479adddc5cd6f6ecfbc4d7740ca32;p=ghc-hetmet.git

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