in
(* thread action *)
-let callback req outchan =
+let callback (req: Http_types.request) outchan =
(* perform an 'action' that can be applied to a list of keys or, if no
keys was given, to all keys *)
- let act_on_keys req styles outchan per_key_action all_keys_action logmsg =
+ let act_on_keys (req: Http_types.request)
+ styles outchan per_key_action all_keys_action logmsg
+ =
let log = new Uwobo_logger.processingLogger () in
let keys =
try