1. Rörd Hinrichsen
  2. footnotes-ocaml

Commits

"Rör...@gmail.com>"  committed 8a99661

started using Arg.parse

  • Participants
  • Parent commits ec46c96
  • Branches default

Comments (0)

Files changed (1)

File footnotes.ml

View file
  • Ignore whitespace
       (try footnotes c stdout with e -> close_in c; raise e);
       close_in c
     in
-    Array.iter do_file (Array.sub Sys.argv 1 (Array.length Sys.argv - 1))
+    Arg.parse [] do_file "Usage: footnotes [file...]"
   else footnotes stdin stdout;;
 
 main ();;