let check
?(callout=fun _ _ _ -> ())
wpo lang
=
Task.todo
begin
fun () ->
let logf = Wpo.file_for_log_check ~gid:wpo.po_gid lang in
let log = Logs.create wpo logf in
check_by lang log wpo
>>! fun s ->
let r = result s in
Logs.close log ;
callout wpo lang r
end