reduce log noise (Liminiens#39)

Co-authored-by: Ayrat Hudaygulov <ahudaygulov@microsoft.com>
fsharplang-ru · Dec 10, 2020 · cc1ee4b · cc1ee4b
1 parent 21fb856
commit cc1ee4b
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/src/Grinder/Program.fs b/src/Grinder/Program.fs
@@ -157,10 +157,10 @@ module Program =
                         do! processNewUsersCommand users
 
                     | NewMessage message ->
-                        sprintf "Received: New message in chat %s from %A "
+                        sprintf "Received: New message in chat %s from %s"
                             (defaultArg message.Chat.Title "Unknown")
-                            message.From
-                        |> logInfo
+                            (defaultArg (message.From |> Option.bind(fun x -> x.Username)) "")
+                        |> logDbg
 
                         match prepareTextMessage context.Me.Username message with
                         | Some newMessage ->
@@ -175,7 +175,7 @@ module Program =
                                     newMessage.MessageText
                                     newMessage.FromUsername
                                     newMessage.ChatUsername
-                                |> logInfo
+                                |> logDbg
                         | None ->
                             sprintf "Skipping message %A from %A" message context.Me.Username
                             |> logDbg
@@ -199,7 +199,7 @@ module Program =
                                     replyMessage.MessageText
                                     replyMessage.FromUsername
                                     replyMessage.ChatUsername
-                                |> logInfo
+                                |> logDbg
                         | None ->
                             sprintf "Skipping message %A from %A" reply context.Me.Username
                             |> logDbg