From 7ffb7b021eec46f2d714e04b47d752012e1bf8ea Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Wed, 31 Jul 2024 22:59:58 -0400 Subject: Frontend updates --- fig-monitor-twitch/main/Main.hs | 3 +++ 1 file changed, 3 insertions(+) (limited to 'fig-monitor-twitch/main/Main.hs') diff --git a/fig-monitor-twitch/main/Main.hs b/fig-monitor-twitch/main/Main.hs index 2232a03..05f3cdb 100644 --- a/fig-monitor-twitch/main/Main.hs +++ b/fig-monitor-twitch/main/Main.hs @@ -11,12 +11,14 @@ data Command = Monitor | Chatbot | RedirectServer + | Validate parseCommand :: Parser Command parseCommand = subparser $ mconcat [ command "monitor" $ info (pure Monitor) (progDesc "Launch the Twitch monitor") , command "chatbot" $ info (pure Chatbot) (progDesc "Launch the Twitch chatbot") , command "user-token-server" $ info (pure RedirectServer) (progDesc "Launch a web server to handle authentication redirects") + , command "validate-endpoint" $ info (pure Validate) (progDesc "Test Twitch authentication") ] data Opts = Opts { busHost :: Text @@ -43,3 +45,4 @@ main = do Monitor -> twitchEventClient cfg (opts.busHost, opts.busPort) Chatbot -> twitchChatClient cfg (opts.busHost, opts.busPort) RedirectServer -> userTokenRedirectServer cfg + Validate -> twitchEndpointTest cfg -- cgit v1.2.3