tools/PascalParser.hs
changeset 7641 42dba3e7fed2
parent 7513 39866eb9e4a6
child 7642 91fce82f9c6f
equal deleted inserted replaced
7640:e9e6b4d740f6 7641:42dba3e7fed2
   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"
   441     try $ string "if" >> notFollowedBy alphaNum
   442     comments
   442     comments
   443     e <- expression
   443     e <- expression
   444     comments
   444     comments
   445     string "then"
   445     string "then"
   446     comments
   446     comments