Fix infinite loop in type expansion

Reviewed By: jvillard

Differential Revision: D2932218

fb-gh-sync-id: b656a8f
shipit-source-id: b656a8f
master
Andrzej Kotulski 9 years ago committed by facebook-github-bot-1
parent 3db68bcb4c
commit 32a5cae175

@ -3831,6 +3831,7 @@ let rec expand_type tenv typ =
begin begin
match tenv_lookup tenv tname with match tenv_lookup tenv tname with
| None -> assert false | None -> assert false
| Some (Tvar _) -> assert false
| Some typ' -> expand_type tenv typ' | Some typ' -> expand_type tenv typ'
end end
| _ -> typ | _ -> typ

Loading…
Cancel
Save