Commit 88c01e2c authored by MARCHE Claude's avatar MARCHE Claude
Browse files

reading config

parent dce31a1b
...@@ -222,7 +222,10 @@ let resize_images size = ...@@ -222,7 +222,10 @@ let resize_images size =
image_transf := image ~size iconname_transf; image_transf := image ~size iconname_transf;
() ()
let () = resize_images 20 let () =
eprintf "reading icons...@?";
resize_images 20;
eprintf " done.@."
......
...@@ -47,7 +47,11 @@ let set_file f = match !file with ...@@ -47,7 +47,11 @@ let set_file f = match !file with
end; end;
file := Some f file := Some f
let () = Arg.parse spec set_file usage_str let () =
eprintf "Parsing command line...@?";
Arg.parse spec set_file usage_str;
eprintf " done.@."
let fname = match !file with let fname = match !file with
| None -> | None ->
......
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