diff options
| author | LLLL Colonq <llll@colonq> | 2025-10-05 19:53:36 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2025-10-05 19:53:36 -0400 |
| commit | 8f67f0c55b845c80973fcec0fbaef9879f677b91 (patch) | |
| tree | 21204ea94ceb4d04c2096ea1c9f9cec478e6f2ee /fig-monitor-twitch/src/Fig/Monitor/Twitch.hs | |
| parent | 874be6e6a13b89a87012af9d295d864632ad7cd6 (diff) | |
fig-monitor-twitch: Print failed poll
Diffstat (limited to 'fig-monitor-twitch/src/Fig/Monitor/Twitch.hs')
| -rw-r--r-- | fig-monitor-twitch/src/Fig/Monitor/Twitch.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fig-monitor-twitch/src/Fig/Monitor/Twitch.hs b/fig-monitor-twitch/src/Fig/Monitor/Twitch.hs index d4eca81..3183256 100644 --- a/fig-monitor-twitch/src/Fig/Monitor/Twitch.hs +++ b/fig-monitor-twitch/src/Fig/Monitor/Twitch.hs @@ -425,7 +425,7 @@ twitchEventClient cfg busAddr = do let schoices = (\(t, v) -> t <> "," <> v) <$> choices log $ "Poll end: " <> pollid cmds.publish "monitor twitch poll end" . encodeUtf8 . Text.unwords $ [pollid] <> schoices - _else -> log "Failed to extract ID from payload for poll end event" + _else -> log $ "Failed to extract ID from payload for poll end event: " <> tshow res _else -> log $ "Received unknown notification event: " <> tshow resp Just "session_keepalive" -> pure () _else -> log $ "Received unknown response: " <> tshow resp |