diff options
| -rw-r--r-- | fig-monitor-twitch/src/Fig/Monitor/Twitch.hs | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/fig-monitor-twitch/src/Fig/Monitor/Twitch.hs b/fig-monitor-twitch/src/Fig/Monitor/Twitch.hs index ab2dd77..5f97209 100644 --- a/fig-monitor-twitch/src/Fig/Monitor/Twitch.hs +++ b/fig-monitor-twitch/src/Fig/Monitor/Twitch.hs @@ -274,7 +274,6 @@ twitchEventClient cfg busAddr = do log $ "Connected to Twitch API, session ID is: " <> sessionId runAuthed cfg do user <- loginToUserId cfg.userLogin - log "got user id" subscribe sessionId "channel.channel_points_custom_reward_redemption.add" user subscribe sessionId "channel.prediction.begin" user subscribe sessionId "channel.prediction.end" user @@ -282,7 +281,6 @@ twitchEventClient cfg busAddr = do subscribe sessionId "channel.poll.end" user subscribe sessionId "channel.subscribe" user subscribe sessionId "channel.subscription.gift" user - log "finished subscribing" subscribeFollows sessionId user subscribeRaids sessionId user busClient busAddr @@ -480,9 +478,9 @@ twitchChannelLiveMonitor cfg busAddr = do loop = do log "Updating liveness..." live <- runAuthed cfg $ usersAreLive cfg.monitor - log "Update complete!" + log $ "Update complete! Live users: " <> Text.unwords (Set.toList live) cmds.publish "monitor twitch stream online" . encodeUtf8 . Text.unwords $ Set.toList live - threadDelay $ 5 * 60 * 1000000 + threadDelay $ 5 * 60 * 1000000 -- wait 5 minutes loop loop ) @@ -555,17 +553,18 @@ twitchChatClient cfg busAddr = do "PRIVMSG" | Just displaynm <- Map.lookup "display-name" msg.tags , Nothing <- Map.lookup "custom-reward-id" msg.tags -> do - cmds.publish "monitor twitch chat incoming" . encodeUtf8 . Text.unwords $ - [ displaynm - , Text.intercalate "\n" $ (\(key, v) -> key <> "\t" <> v) <$> Map.toList msg.tags - ] <> drop 1 msg.params + log $ "Received chat message from: " <> displaynm + cmds.publish "monitor twitch chat incoming" . encodeUtf8 . Text.unwords $ + [ displaynm + , Text.intercalate "\n" $ (\(key, v) -> key <> "\t" <> v) <$> Map.toList msg.tags + ] <> drop 1 msg.params _ -> pure () ) (\_cmds ev d -> do case ev of "monitor twitch chat outgoing" -> do let msg = decodeUtf8 d - log $ "Sending: " <> msg + log $ "Sending chat message: " <> msg WS.sendTextData conn $ mconcat [ "PRIVMSG #" , chan |