diff options
| author | LLLL Colonq <llll@colonq> | 2024-11-07 22:51:56 -0500 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-11-07 22:51:56 -0500 |
| commit | 309bdcc15db562633ff73da4021f0020f1c0cf6d (patch) | |
| tree | e465b2035d0bed8c53960322ff041122299cbd2f /fig-monitor-twitch | |
| parent | 624f7ba8b2fcda6675951dd8d41dcc99017484cf (diff) | |
Secured API
Diffstat (limited to 'fig-monitor-twitch')
| -rw-r--r-- | fig-monitor-twitch/main/Main.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/fig-monitor-twitch/main/Main.hs b/fig-monitor-twitch/main/Main.hs index b306586..682d35b 100644 --- a/fig-monitor-twitch/main/Main.hs +++ b/fig-monitor-twitch/main/Main.hs @@ -11,7 +11,7 @@ data Command = Monitor | Chatbot | LiveChecker - | RedirectServer Bool + | RedirectServer !Bool | Validate parseCommand :: Parser Command @@ -24,10 +24,10 @@ parseCommand = subparser $ mconcat , command "validate-endpoint" $ info (pure Validate) (progDesc "Test Twitch authentication") ] data Opts = Opts - { busHost :: Text - , busPort :: Text - , config :: FilePath - , command :: Command + { busHost :: !Text + , busPort :: !Text + , config :: !FilePath + , command :: !Command } parseOpts :: Parser Opts |