let long_running_log plugin_name content =
begin match find_plugin plugin_name with
| Some m ->
let module Long_running = (val m : LONG_RUNNING) in
begin try
let c = Long_running.deserialize_exn content in
Long_running.log c
with e ->
let log = Log.(s "Serialization exception: " % exn e) in
Log.(log @ error);
["Error", log]
end
| None ->
let log = Log.(s "Plugin not found: " % sf "%S" plugin_name) in
Log.(log @ error);
["Error", log]
end