Parser: FIX add missing ')' to error message

ccntrq · Jan 8, 2018 · da6ca40 · da6ca40
1 parent f8b9a42
commit da6ca40
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Parser.hs b/src/Parser.hs
@@ -96,7 +96,7 @@ forStatement = do
     condition <- ifM (notM $ check SEMICOLON)(expression)(return $ Literal (Bool True))
     _ <- consume SEMICOLON "Expect ' ' after loop condition."
     increment <-  ifM (notM $ check RIGHT_PAREN)(liftM Just expression)(return Nothing)
-    _ <- consume RIGHT_PAREN "Expect ' ' after for clauses."
+    _ <- consume RIGHT_PAREN "Expect ')' after for clauses."
     body <- statement
     let body' = maybe body (\inc -> Block [body, Expression inc]) increment
     let body'' = While condition body'