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