Commit ee613004 authored by Fardale's avatar Fardale

change log priority

parent 42a03c28
......@@ -65,7 +65,7 @@ let send_computation sockaddr pass computation =
| Ok answer -> (
match answer with
| `Ok ->
Logs_lwt.debug (fun m ->
Logs_lwt.info (fun m ->
m "Computation %i,%i successfully sent."
(fst computation.id) (snd computation.id))
>|= fun () -> true
......@@ -146,7 +146,7 @@ let server_handler pass port sockaddr (ic, oc) =
| `RESULT result ->
Lwt_io.write_line oc (Serialization_j.string_of_answer `Ok)
>>= (fun () -> Lwt_io.flush oc)
<&> Logs_lwt.debug (fun m ->
<&> Logs_lwt.info (fun m ->
m "Receive result: %s"
(Serialization_j.string_of_result
{
......@@ -185,7 +185,7 @@ let server_handler pass port sockaddr (ic, oc) =
| `JOB submission ->
Lwt_io.write_line oc (Serialization_j.string_of_answer `Ok)
>>= (fun () -> Lwt_io.flush oc)
<&> Logs_lwt.debug (fun m ->
<&> Logs_lwt.info (fun m ->
m "Receive submission: %s"
(Serialization_j.string_of_submission submission))
>>= fun () ->
......@@ -210,7 +210,7 @@ let server_handler pass port sockaddr (ic, oc) =
| `JOBQ (id, delete) as jobq ->
Lwt_io.write_line oc (Serialization_j.string_of_answer `Ok)
>>= (fun () -> Lwt_io.flush oc)
<&> Logs_lwt.debug (fun m ->
<&> Logs_lwt.info (fun m ->
m "Receive JOBQ command: %s"
(Serialization_j.string_of_query_data jobq))
>>= fun () ->
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment