Fix error message about unsupported versions
Signed-off-by: Jeremie Dimino <jeremie@dimino.org>
This commit is contained in:
parent
3d65c4e378
commit
757400a6a6
|
@ -74,6 +74,9 @@ let check_supported t (loc, ver) =
|
|||
(String.concat ~sep:"\n"
|
||||
(List.map (Supported_versions.supported_ranges t.supported_versions)
|
||||
~f:(fun (a, b) ->
|
||||
if a = b then
|
||||
sprintf "- %s" (Version.to_string a)
|
||||
else
|
||||
sprintf "- %s to %s"
|
||||
(Version.to_string a)
|
||||
(Version.to_string b))))
|
||||
|
|
Loading…
Reference in New Issue