diff options
Diffstat (limited to 'parser.hs')
-rw-r--r-- | parser.hs | 11 |
1 files changed, 10 insertions, 1 deletions
@@ -99,7 +99,16 @@ exprTable = prefix name op = E.Prefix (exUnOp_ op <$ symbol name) pExpression :: Parser Expression -pExpression = E.buildExpressionParser exprTable pExLit +pExpression = E.buildExpressionParser exprTable (pExCast <|> pExLit) + +pExCast :: Parser Expression +pExCast = do + symbol "cast" + symbol "(" + t <- pType + symbol ")" + e <- pParenExpr + return $ ExCast t e pExLit :: Parser Expression pExLit = (exLit_ <$> pLiteral) <|> pParenExpr |