fix mistake in shims

This commit is contained in:
Simon Cruanes 2019-03-16 12:27:15 -05:00
parent 3f035e7dc4
commit 75769e37b6

View file

@ -14,4 +14,4 @@ let () =
C.main ~name:"mkshims" (fun c ->
let version = C.ocaml_config_var_exn c "version" in
let major, minor = Scanf.sscanf version "%u.%u" (fun maj min -> maj, min) in
print_endline (if (major, minor) >= (4,8) then shims_post_408 else shims_post_408))
print_endline (if (major, minor) >= (4,8) then shims_post_408 else shims_pre_408))