fmt
This commit is contained in:
parent
3237406430
commit
a01eba04e3
1 changed files with 4 additions and 4 deletions
|
@ -43,7 +43,7 @@ let check_type_scheme
|
|||
fun env pos (ForallTy (ts, ty)) ->
|
||||
let ts = List.map Position.value 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 =
|
||||
|
|
Reference in a new issue