shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Allow optional ';' before 'else'

--- a/src/MicroHs/Parse.hs

+++ b/src/MicroHs/Parse.hs

@@ -576,7 +576,7 @@

 pDo = EDo <$> ((Just <$> pQualDo) <|< (Nothing <$ pKeyword "do")) <*> pBlock pStmt

 pIf :: P Expr

-pIf = EIf <$> (pKeyword "if" *> pExpr) <*> (pKeyword "then" *> pExpr) <*> (pKeyword "else" *> pExpr)

+pIf = EIf <$> (pKeyword "if" *> pExpr) <*> (pKeyword "then" *> pExpr) <*> (eoptional (pSpec ';') *> pKeyword "else" *> pExpr)

 pQualDo :: P Ident

 pQualDo = do

-- 

⑨