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

Merge branch 'master' of into genterm

parents 725d72a9 a0d3a69d
......@@ -79,8 +79,7 @@ wellFormed (TyVar i) env = case (nth env i) of
Just (ETypeVar _) -> True
Just Nil -> False
wellFormed (TyArr ty1 ty2) env = wellFormed ty1 env && wellFormed ty2 env
wellFormed (TyAll ty) (ETypeVar env) = wellFormed ty env
wellFormed (TyAll _) _ = False
wellFormed (TyAll ty) env = wellFormed ty (ETypeVar env)
wellFormed (TyBase) env = True
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