add variable definition
This commit is contained in:
parent
0f127a00cd
commit
1bbc16f132
1 changed files with 8 additions and 0 deletions
|
@ -146,6 +146,13 @@ ifExpr = do
|
||||||
|
|
||||||
bool = fmap BoolConst $ (symbol "true" >> return True) <|> (symbol "false" >> return False)
|
bool = fmap BoolConst $ (symbol "true" >> return True) <|> (symbol "false" >> return False)
|
||||||
|
|
||||||
|
def = do
|
||||||
|
name <- identifier
|
||||||
|
whiteSpace
|
||||||
|
symbol "="
|
||||||
|
value <- exprparser
|
||||||
|
return $ Def name value
|
||||||
|
|
||||||
expr' = try block
|
expr' = try block
|
||||||
<|> try funDef
|
<|> try funDef
|
||||||
<|> try call
|
<|> try call
|
||||||
|
@ -155,6 +162,7 @@ expr' = try block
|
||||||
<|> listSeq exprparser ListConst
|
<|> listSeq exprparser ListConst
|
||||||
<|> try ifExpr
|
<|> try ifExpr
|
||||||
<|> try bool
|
<|> try bool
|
||||||
|
<|> try def
|
||||||
<|> fmap Var identifier
|
<|> fmap Var identifier
|
||||||
<|> fmap StrConst stringLiteral
|
<|> fmap StrConst stringLiteral
|
||||||
<|> fmap IntConst integer
|
<|> fmap IntConst integer
|
||||||
|
|
Loading…
Reference in a new issue