From 8dff924f4d598da653794e29fb9929017e161aa3 Mon Sep 17 00:00:00 2001 From: Alban Gruin Date: Wed, 30 Dec 2020 16:38:15 +0100 Subject: ucs: use the version name from dune Signed-off-by: Alban Gruin --- src/version.ml | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 src/version.ml (limited to 'src/version.ml') diff --git a/src/version.ml b/src/version.ml new file mode 100644 index 0000000..033b60f --- /dev/null +++ b/src/version.ml @@ -0,0 +1,21 @@ +(* + * Copyright (C) 2020 Alban Gruin + * + * ucs is free software: you can redistribute it and/or modify + * it under the terms of the GNU Affero General Public License as published + * by the Free Software Foundation, either version 3 of the License, or + * (at your option) any later version. + * + * ucs is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU Affero General Public License for more details. + * + * You should have received a copy of the GNU Affero General Public License + * along with ucs. If not, see . + *) + +let version () = + match Build_info.V1.version () with + | Some v -> Build_info.V1.Version.to_string v + | None -> "dev" -- cgit v1.2.1