fix version parser

Author: gares

etc/version_parser.ml

@@ -3,7 +3,9 @@ let is_number x = try let _ = int_of_string x in true with _ -> false ;;
 
 let main () =
   let v = Sys.argv.(1) in
-  let l = String.split_on_char '.' Str.(replace_first (regexp "^v") "" v) in
+  let v' = Str.(replace_first (regexp "^v") "" v) in     (* v1.20... -> 1.20... *)
+  let v' = Str.(replace_first (regexp "-.*$") "" v') in  (* ...-10-fjdnfs -> ... *)
+  let l = String.split_on_char '.' v' in
   (* sanitization *)
   let l =
     match l with