match keys with
| [] -> (* no key provided, act on all stylesheets *)
logger#log (sprintf "%s all stylesheets ..." logmsg);
- (try all_keys_action () with e -> logger#log (Printexc.to_string e))
+ (try all_keys_action () with e -> logger#log (Printexc.to_string e));
+ logger#log (sprintf "Done! (all stylesheets)")
| keys ->
List.iter
(fun key -> (* act on a single stylesheet *)
logger#log (sprintf "%s stylesheet %s" logmsg key);
- (try per_key_action key with e -> logger#log (Printexc.to_string e)))
+ (try per_key_action key with e -> logger#log (Printexc.to_string e));
+ logger#log (sprintf "Done! (stylesheet %s)" key))
keys
;;