+ --version command

generate version.ml file so that compile-time version is used

Author: yasunariw

.gitignore

@@ -1,3 +1,4 @@
 _build
 *.merlin
 *.install
+src/version.ml

Makefile

@@ -5,9 +5,12 @@ default: build
 start:
 	dune exec -- ./src/monorobot.exe
 
-build:
+build: gen_version
 	dune build src/monorobot.exe
 
+gen_version:
+	./gen_version.sh
+
 test:
 	dune runtest
 
@@ -20,4 +23,5 @@ fmt:
 	dune build @fmt --auto-promote
 
 clean:
+	rm -f src/version.ml
 	dune clean

gen_version.sh

@@ -0,0 +1,8 @@
+#!/bin/bash
+
+VERSION=$(git describe --always --tags --dirty=+M)
+cat > src/version.ml <<- EOF
+(* do not edit; generated by gen_version.sh *)
+
+let current = "$VERSION"
+EOF

src/monorobot.ml

@@ -119,7 +119,7 @@ let check_slack =
 
 let default_cmd =
   let doc = "the notification bot" in
-  Term.(ret (const (`Help (`Pager, None)))), Term.info "monorobot" ~doc
+  Term.(ret (const (`Help (`Pager, None)))), Term.info "monorobot" ~doc ~version:Version.current
 
 let cmds = [ run; check_gh; check_slack ]