Add more logging for endpoint failures

Author: tbidne

src/CLC/Stackage/Parser/API.hs

@@ -27,9 +27,10 @@ import CLC.Stackage.Parser.API.Common
 import CLC.Stackage.Parser.API.JSON qualified as JSON
 import CLC.Stackage.Utils.Exception qualified as Ex
 import CLC.Stackage.Utils.Logging qualified as Logging
-import Control.Exception (Exception (displayException))
+import Control.Exception (Exception (displayException), throwIO)
 import Data.Text qualified as T
 import Network.HTTP.Client.TLS qualified as TLS
+import System.Exit (ExitCode (ExitFailure))
 
 -- | Returns the 'StackageResponse' corresponding to the given snapshot.
 getStackage :: Logging.Handle -> IO StackageResponse
@@ -38,15 +39,25 @@ getStackage hLogger = do
   Ex.tryAny (JSON.getStackage manager stackageSnapshot) >>= \case
     Right r1 -> pure r1
     Left jsonEx -> do
-      let msg =
+      let e1 =
             mconcat
               [ "Json endpoint failed. Trying cabal config next: ",
                 T.pack $ displayException jsonEx
               ]
 
-      Logging.putTimeWarnStr hLogger msg
+      Logging.putTimeWarnStr hLogger e1
 
-      CabalConfig.getStackage manager stackageSnapshot
+      Ex.tryAny (CabalConfig.getStackage manager stackageSnapshot) >>= \case
+        Right r2 -> pure r2
+        Left ex -> do
+          let e2 =
+                mconcat
+                  [ "Cabal config endpoint failed: ",
+                    T.pack $ displayException ex
+                  ]
+
+          Logging.putTimeErrStr hLogger e2
+          throwIO $ ExitFailure 1
 
 -- | Stackage snapshot. Currently just 'nightly' to hopefully allow clc-stackage
 -- to be more flexible.