This commit is contained in:
Mylloon 2023-12-05 13:52:18 +01:00
parent a90e8176e6
commit 756ede6179
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -128,7 +128,7 @@ and synth_tagged
(fun x -> HopixTypes.internalize_ty tenv x) (fun x -> HopixTypes.internalize_ty tenv x)
(match tlist with (match tlist with
| Some t -> t | Some t -> t
| None -> HopixTypes.type_error cons.position "No types ??") | None -> HopixTypes.type_error cons.position "No types found")
in in
let tcons = let tcons =
try HopixTypes.instantiate_type_scheme cons_scheme tys with try HopixTypes.instantiate_type_scheme cons_scheme tys with
@ -181,7 +181,7 @@ and synth_record
let tlist' = let tlist' =
match tlist with match tlist with
| Some tlist -> List.map (fun t -> HopixTypes.internalize_ty tenv t) tlist | Some tlist -> List.map (fun t -> HopixTypes.internalize_ty tenv t) tlist
| None -> HopixTypes.type_error fl.position "No types ??" | None -> HopixTypes.type_error fl.position "No types found"
in in
(* Type checking *) (* Type checking *)
List.iter List.iter