diff options
| author | Benjamin Pierce <bcpierce002017@gmail.com> | 2018-01-27 08:35:01 -0500 |
|---|---|---|
| committer | Benjamin Pierce <bcpierce002017@gmail.com> | 2018-01-27 08:35:01 -0500 |
| commit | 2ebf4d4b65241d319dd56eff8a68ab5da37825ce (patch) | |
| tree | 97c6af05dcead9f238ac29dbad27f9d1ddd67283 /src | |
| parent | 8a5f3e40ddbdbb75de0d4c6a1828e73562069014 (diff) | |
| download | unison-2ebf4d4b65241d319dd56eff8a68ab5da37825ce.zip unison-2ebf4d4b65241d319dd56eff8a68ab5da37825ce.tar.gz unison-2ebf4d4b65241d319dd56eff8a68ab5da37825ce.tar.bz2 | |
Fic incorrect check for OCaml version
Diffstat (limited to 'src')
| -rw-r--r-- | src/remote.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/remote.ml b/src/remote.ml index 77062eb..2d5f622 100644 --- a/src/remote.ml +++ b/src/remote.ml @@ -922,8 +922,8 @@ 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 && patchlevel <= 1 + || major = 4 && minor < 1 + || major = 4 && minor = 1 && patchlevel <= 1 then "<= 4.01.1" else ">= 4.01.2" in "Unison " ^ Uutil.myMajorVersion ^ " with OCaml " ^ compiler ^ "\n" |