627 , try $ parens pas (sepEndBy recField (char' ';' >> comments)) >>= return . InitRecord |
627 , try $ parens pas (sepEndBy recField (char' ';' >> comments)) >>= return . InitRecord |
628 , parens pas initExpression |
628 , parens pas initExpression |
629 , try $ integer pas >>= \i -> notFollowedBy (char' '.') >> (return . InitNumber . show) i |
629 , try $ integer pas >>= \i -> notFollowedBy (char' '.') >> (return . InitNumber . show) i |
630 , try $ float pas >>= return . InitFloat . show |
630 , try $ float pas >>= return . InitFloat . show |
631 , try $ integer pas >>= return . InitNumber . show |
631 , try $ integer pas >>= return . InitNumber . show |
|
632 , try (string' "_S" >> stringLiteral pas) >>= return . InitString |
|
633 , try (string' "_P" >> stringLiteral pas) >>= return . InitPChar |
632 , stringLiteral pas >>= return . InitString |
634 , stringLiteral pas >>= return . InitString |
633 , char' '#' >> many digit >>= \c -> comments >> return (InitChar c) |
635 , char' '#' >> many digit >>= \c -> comments >> return (InitChar c) |
634 , char' '$' >> many hexDigit >>= \h -> comments >> return (InitHexNumber h) |
636 , char' '$' >> many hexDigit >>= \h -> comments >> return (InitHexNumber h) |
635 , char' '@' >> initExpression >>= \c -> comments >> return (InitAddress c) |
637 , char' '@' >> initExpression >>= \c -> comments >> return (InitAddress c) |
636 , try $ string' "nil" >> return InitNull |
638 , try $ string' "nil" >> return InitNull |