matthieu
/
dune
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix error message about unsupported versions 

Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
Jeremie Dimino 2018-06-29 23:23:38 +01:00 committed by Rudi Grinberg
parent 3d65c4e378
commit 757400a6a6
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/syntax.ml
View File

@ -74,9 +74,12 @@ let check_supported t (loc, ver) =
(String.concat ~sep:"\n" (String.concat ~sep:"\n"
(List.map (Supported_versions.supported_ranges t.supported_versions) (List.map (Supported_versions.supported_ranges t.supported_versions)
~f:(fun (a, b) -> ~f:(fun (a, b) ->
sprintf "- %s to %s" if a = b then
(Version.to_string a) sprintf "- %s" (Version.to_string a)
(Version.to_string b)))) else
sprintf "- %s to %s"
(Version.to_string a)
(Version.to_string b))))
let greatest_supported_version t = let greatest_supported_version t =
Supported_versions.greatest_supported_version t.supported_versions Supported_versions.greatest_supported_version t.supported_versions