Commit ce8948bf authored by Gilles Coremans's avatar Gilles Coremans
Browse files

Merge branch 'master' of github.com:martonbognar/ASTTool into genterm

parents 725d72a9 a0d3a69d
...@@ -79,8 +79,7 @@ wellFormed (TyVar i) env = case (nth env i) of ...@@ -79,8 +79,7 @@ wellFormed (TyVar i) env = case (nth env i) of
Just (ETypeVar _) -> True Just (ETypeVar _) -> True
Just Nil -> False Just Nil -> False
wellFormed (TyArr ty1 ty2) env = wellFormed ty1 env && wellFormed ty2 env wellFormed (TyArr ty1 ty2) env = wellFormed ty1 env && wellFormed ty2 env
wellFormed (TyAll ty) (ETypeVar env) = wellFormed ty env wellFormed (TyAll ty) env = wellFormed ty (ETypeVar env)
wellFormed (TyAll _) _ = False
wellFormed (TyBase) env = True wellFormed (TyBase) env = True
typeOf :: Term -> Env -> Either String Type typeOf :: Term -> Env -> Either String Type
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment