X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2FParseUtil.lhs;h=7334806f1ffe6c07879bbfd320241e0927f5369f;hb=d2c2c9372b2479adddc5cd6f6ecfbc4d7740ca32;hp=73358bf0b35e8bde7fa06d3d81e37ef15e8170c1;hpb=31ac390d6e178ed267875122ef3eba6eb9407698;p=ghc-hetmet.git

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