Cleaner monitor logging when a connection is closed from the other side

Summary: Slightly better message in the log when a connection is closed from the other side.

Reviewed By: jbrown215

Differential Revision: D15562917

fbshipit-source-id: 6ba44b766f598737bd1a26225034555d2c0358dc

Author: gabelevi

src/monitor/connections/flowServerMonitorConnection.ml

@@ -157,10 +157,15 @@ module Make (ConnectionProcessor: CONNECTION_PROCESSOR) : CONNECTION
       Lwt.return connection
 
     let catch connection exn =
-      Logger.error
-        ~exn
-        "Closing connection '%s' due to uncaught exception in read loop"
-        connection.name;
+      (match exn with
+      | End_of_file ->
+        Logger.error "Connection '%s' was closed from the other side" connection.name
+      | _ ->
+        Logger.error
+          ~exn
+          "Closing connection '%s' due to uncaught exception in read loop"
+          connection.name
+      );
       close_immediately connection
   end)