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/src/Fig/Monitor/Twitch/Utils.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'fig-monitor-twitch/src/Fig/Monitor/Twitch/Utils.hs') 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 -- cgit v1.2.3