let main =
try
- let version_string = "Helena Checker 0.8.0 M - December 2008" in
+ let version_string = "Helena 0.8.0 M - June 2009" in
let stage = ref 3 in
let meta_file = ref None in
let set_hierarchy s =
H.graph_of_string f s
in
let set_summary i = L.level := i in
- let print_version () = L.warn version_string; exit 0 in
+ let print_version () = L.warn (version_string ^ "\n"); exit 0 in
let set_stage i = stage := i in
let close = function
| None -> ()