typo
This commit is contained in:
parent
ea60a1ee4a
commit
9edc76b628
1 changed files with 1 additions and 1 deletions
|
@ -31,7 +31,7 @@ let compose s2 s1 =
|
||||||
match ty1, ty2 with
|
match ty1, ty2 with
|
||||||
(* Dans ce cas, on donne la priorité à s1 *)
|
(* Dans ce cas, on donne la priorité à s1 *)
|
||||||
| Some ty1', Some _ -> Some ty1'
|
| Some ty1', Some _ -> Some ty1'
|
||||||
(* Utilisation de la substitution que l'on à déjà *)
|
(* Utilisation de la substitution que l'on a déjà *)
|
||||||
| Some ty1', None -> Some ty1'
|
| Some ty1', None -> Some ty1'
|
||||||
| None, Some ty2' -> Some ty2'
|
| None, Some ty2' -> Some ty2'
|
||||||
(* Variable untyped *)
|
(* Variable untyped *)
|
||||||
|
|
Reference in a new issue