Commit 235d5742 authored by POGODALLA Sylvain's avatar POGODALLA Sylvain

Fixes #9

parent 4a19f6fd
......@@ -29,14 +29,18 @@
let space_added = ref true
let no_trailing_space_regexp = Str.regexp "^[ \t]*\\([^ \t].*[^ \t]\\)[ \t]*"
(* let no_trailing_space_regexp =
Str.regexp "^[ \t]*\\([^ \t].*[^ \t]\\)[ \t]*"
let strip_trailing_space s =
let () = Printf.fprintf stderr "looking at \"%s\"\n%!" s in
if Str.string_match no_trailing_space_regexp s 0
then
Str.matched_group 1 s
else
failwith "Bug: matched string expected"
failwith "Bug: matched string expected" *)
let strip_trailing_space s = String.trim s
let extract = function
| None -> "help"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment