diff options
| author | LLLL Colonq <llll@colonq> | 2024-07-31 22:59:58 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2024-07-31 22:59:58 -0400 |
| commit | 7ffb7b021eec46f2d714e04b47d752012e1bf8ea (patch) | |
| tree | 15d9af7555300bd2b452dda55747cf5870b747d3 /fig-monitor-twitch/src/Fig/Monitor/Twitch | |
| parent | 92556dc23ead56ed2c2d2bcc752fe0e7378fa022 (diff) | |
Frontend updates
Diffstat (limited to 'fig-monitor-twitch/src/Fig/Monitor/Twitch')
| -rw-r--r-- | fig-monitor-twitch/src/Fig/Monitor/Twitch/Utils.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/fig-monitor-twitch/src/Fig/Monitor/Twitch/Utils.hs b/fig-monitor-twitch/src/Fig/Monitor/Twitch/Utils.hs index f1d757c..59ba04c 100644 --- a/fig-monitor-twitch/src/Fig/Monitor/Twitch/Utils.hs +++ b/fig-monitor-twitch/src/Fig/Monitor/Twitch/Utils.hs @@ -78,7 +78,8 @@ authedRequestJSON :: (Aeson.ToJSON a, Aeson.FromJSON b) => Text -> Text -> a -> authedRequestJSON method url val = do resp <- authedRequest method url $ Aeson.encode val case Aeson.eitherDecode resp of - Left err -> throwM . FigMonitorTwitchException $ tshow err + Left err -> do + throwM . FigMonitorTwitchException $ tshow err Right res -> pure res runAuthed :: Config -> Authed a -> IO a |