hmm
This commit is contained in:
parent
040ff8570f
commit
11511ab0a2
1 changed files with 7 additions and 7 deletions
|
@ -39,13 +39,13 @@ let typeof t =
|
|||
(match Unification.unify ty_param ty_args with
|
||||
| Some _ -> Some ty_fn, env
|
||||
| None -> None, env)
|
||||
| (Some _ (* (Type.Var _ as ty1) *), _), _ ->
|
||||
(* On this case we may have a function represented as the variable *)
|
||||
(* let ty2 = Type.Arrow (ty1, ty1) in
|
||||
(match Unification.unify ty1 ty2 with
|
||||
| Some env' -> Some ty2, env'
|
||||
| _ -> None, env) *)
|
||||
None, env
|
||||
(* | (Some (Type.Var _ as ty1), _), _ ->
|
||||
(* On this case we may have a function represented as the variable *)
|
||||
let ty2 = Type.Arrow (ty1, ty1) in
|
||||
(match Unification.unify ty1 ty2 with
|
||||
| Some env' -> Some ty2, env'
|
||||
| _ -> None, env) *)
|
||||
| (Some _, _), _ -> None, env
|
||||
| _ -> None, env)
|
||||
in
|
||||
fst (infer TypeSubstitution.empty t)
|
||||
|
|
Reference in a new issue