changeset 7642 | 91fce82f9c6f |
parent 7641 | 42dba3e7fed2 |
child 7690 | 6ef121a80cb0 |
7641:42dba3e7fed2 | 7642:91fce82f9c6f |
---|---|
436 optional $ char ';' |
436 optional $ char ';' |
437 comments |
437 comments |
438 return o |
438 return o |
439 |
439 |
440 ifBlock = do |
440 ifBlock = do |
441 try $ string "if" >> notFollowedBy alphaNum |
441 try $ string "if" >> notFollowedBy (alphaNum <|> char '_') |
442 comments |
442 comments |
443 e <- expression |
443 e <- expression |
444 comments |
444 comments |
445 string "then" |
445 string "then" |
446 comments |
446 comments |