Paris7/compilation
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Activity

.

Browse source
This commit is contained in:
Mylloon 2023-12-05 03:59:26 +01:00
parent 7e4a6b91bd
commit 0fb9b8603b
Signed by: Anri
GPG key ID: A82D63DFF8D1317F
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
flap/src/hopix/hopixTypechecker.ml
View file

@ -146,8 +146,8 @@ and synth_tannot
-> HopixTypes.aty -> HopixTypes.aty
= =
fun tenv expr ty -> fun tenv expr ty ->
(* Pas sûr de ça *)
let ty' = synth_expression tenv expr in let ty' = synth_expression tenv expr in
(* Pas sûr de ça *)
check_equal_types expr.position ~expected:(HopixTypes.internalize_ty tenv ty) ~given:ty'; check_equal_types expr.position ~expected:(HopixTypes.internalize_ty tenv ty) ~given:ty';
ty' ty'