added error tag

fsharplang-ru · Jan 22, 2024 · 3e1a3c8 · 3e1a3c8
1 parent d427835
commit 3e1a3c8
Showing 1 changed file with 4 additions and 5 deletions.
diff --git a/src/VahterBanBot/Program.fs b/src/VahterBanBot/Program.fs
@@ -111,22 +111,21 @@ let webApp = choose [
         let updateBodyJson =
             try JsonConvert.SerializeObject update
             with e -> e.Message
-        use banOnReplyActivity =
+        use topActivity =
             botActivity
               .StartActivity("postUpdate")
               .SetTag("updateBodyObject", update)
               .SetTag("updateBodyJson", updateBodyJson)
-
-        banOnReplyActivity.SetCustomProperty("updateBodyObject", update)
-        banOnReplyActivity.SetCustomProperty("updateBodyJson", updateBodyJson)
-
+
         use scope = ctx.RequestServices.CreateScope()
         let telegramClient = scope.ServiceProvider.GetRequiredService<ITelegramBotClient>()
         let logger = ctx.GetLogger<Root>()
         try
             do! onUpdate telegramClient botConf (ctx.GetLogger "VahterBanBot.Bot") update.Message
+            %topActivity.SetTag("update-error", false)
         with e ->
             logger.LogError(e, $"Unexpected error while processing update: {updateBodyJson}")
+            %topActivity.SetTag("update-error", true)
 
         return! Successful.OK() next ctx
     })