diff options
Diffstat (limited to 'src/parse/parsetree.rs')
| -rw-r--r-- | src/parse/parsetree.rs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/parse/parsetree.rs b/src/parse/parsetree.rs index c773f3b..081489d 100644 --- a/src/parse/parsetree.rs +++ b/src/parse/parsetree.rs @@ -119,6 +119,9 @@ fn tokens_to_ast_inner( Some(Sym(s)) if s == "false" => Ok(Atom(False)), Some(Sym(s)) if s == "quote" => Ok(Atom(Quote)), Some(Sym(s)) if s == "vector" => Ok(Atom(Vector)), + Some(Sym(s)) if s == "coprod" => Ok(Atom(Coprod)), + Some(Sym(s)) if s == "inl" => Ok(Atom(Inl)), + Some(Sym(s)) if s == "inr" => Ok(Atom(Inr)), Some(Sym(s)) if s == "<>" => Ok(Atom(Concat)), Some(Sym(s)) if s == "print" => Ok(Atom(Print)), Some(Sym(s)) if s == "let" => Ok(Atom(Let)), @@ -248,6 +251,7 @@ mod private_parsing_tests { Ok(("", List(vec![Integer, Boolean, arr(Boolean, Integer), Integer]))) ); assert_eq!(parse_type("T"), Ok(("", VarType("T".to_string())))); + assert_eq!(parse_type("(Sum (Int -> Bool) Int)"), Ok(("", sumtype(arr(Integer, Boolean), Integer)))); } #[test] |