No title

1
2
3
4
5
parseSimpleIf :: Parser If
parseSimpleIf = SIMPLEIF <$> cond <*> com
 where
   cond = skipSpaces *> parseString "If" *> skipSpaces *> parseCondition <* skipSpaces <* parseThisChar ':'
   com = skipSpaces *> parseCommandSequence