config.ml

   1 (**  *)
   2
   3 open ListMore
   4 open ExtString
   5 open Operators
   6
   7 let version_number = "0.2.1+"
   8
   9 let version = Printf.sprintf "%s (%s)"
  10     version_number
  11     (Git.revision >> String.explode >> List.take 8 >> String.implode)
  12