Skip to content

Commit

Permalink
Fix version check (#134)
Browse files Browse the repository at this point in the history
* Fix incorrect check for OCaml version
  • Loading branch information
bcpierce00 authored Jan 27, 2018
1 parent ea982dc commit fb2aee8
Showing 1 changed file with 7 additions and 1 deletion.
8 changes: 7 additions & 1 deletion src/remote.ml
Original file line number Diff line number Diff line change
Expand Up @@ -922,10 +922,16 @@ let connectionHeader =
Scanf.sscanf Sys.ocaml_version "%d.%d.%d" (fun x y z -> (x,y,z)) in
let compiler =
if major < 4
|| major = 4 && minor <= 2
|| major = 4 && minor < 2
|| major = 4 && minor = 2 && patchlevel <= 1
then "<= 4.01.1"
else ">= 4.01.2"
(* BCP: These strings seem wrong -- they should say 4.02,
not 4.01, according to my understanding of when the breaking
change happened. However, I'm nervous about breaking installations
that are working, so I'm going to leave it. Hopefully we are
far enough beyond these OCaml versions that it doesn't matter
anyway. *)
in "Unison " ^ Uutil.myMajorVersion ^ " with OCaml " ^ compiler ^ "\n"

let rec checkHeader conn buffer pos len =
Expand Down

0 comments on commit fb2aee8

Please sign in to comment.