Merge remote-tracking branch 'origin/pr/1113'

haskell · Sep 24, 2024 · e38c41b · e38c41b
2 parents d04a9bb + 2bc3025
commit e38c41b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/GHCup/Download.hs b/lib/GHCup/Download.hs
@@ -158,8 +158,8 @@ getDownloadsF pfreq@(PlatformRequest arch plat _) = do
   dl' (NewSetupInfo si) = pure (Right si)
   dl' (NewURI uri)      = do
                             base <- liftE $ getBase uri
-                            catchE @JSONError (\(JSONDecodeError _) -> do
-                                logDebug $ "Couldn't decode " <> T.pack base <> " as GHCupInfo, trying as SetupInfo: "
+                            catchE @JSONError (\(JSONDecodeError s) -> do
+                                logDebug $ "Couldn't decode " <> T.pack base <> " as GHCupInfo, trying as SetupInfo: " <> T.pack s
                                 Right <$> decodeMetadata @Stack.SetupInfo base)
                               $ fmap Left (decodeMetadata @GHCupInfo base >>= \gI -> warnOnMetadataUpdate uri gI >> pure gI)