This commit is contained in:
Mylloon 2023-12-04 17:47:16 +01:00
parent 3237406430
commit a01eba04e3
Signed by: Anri
GPG key ID: A82D63DFF8D1317F

View file

@ -43,7 +43,7 @@ let check_type_scheme
fun env pos (ForallTy (ts, ty)) -> fun env pos (ForallTy (ts, ty)) ->
let ts = List.map Position.value ts in let ts = List.map Position.value ts in
let env = HopixTypes.bind_type_variables pos env ts in let env = HopixTypes.bind_type_variables pos env ts in
(HopixTypes.Scheme (ts, HopixTypes.internalize_ty env ty), env) HopixTypes.Scheme (ts, HopixTypes.internalize_ty env ty), env
;; ;;
let synth_literal : HopixAST.literal -> HopixTypes.aty = let synth_literal : HopixAST.literal -> HopixTypes.aty =