From 1cd474ee7c9bc853d40f3e5769a8d612f01dee40 Mon Sep 17 00:00:00 2001
From: Michael Bishop <michael.bishop@iohk.io>
Date: Mon, 4 Mar 2019 14:28:21 -0400
Subject: [PATCH] be more verbose about which build artifact its fetching

---
 installers/common/AppVeyor.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/installers/common/AppVeyor.hs b/installers/common/AppVeyor.hs
index 3f9d84a637..8725e2ac51 100644
--- a/installers/common/AppVeyor.hs
+++ b/installers/common/AppVeyor.hs
@@ -43,7 +43,7 @@ theHydraJob = "daedalus-mingw32-pkg" :: Text
 -- | Gets CardanoSL.zip corresponding to the src json revision from Hydra
 downloadCardanoSLHydraBuildProduct :: CardanoSource -> IO L8.ByteString
 downloadCardanoSLHydraBuildProduct src@CardanoSource{..} = do
-  printf ("Fetching GitHub CI status for commit "%n%" of "%n%"/"%n%"\n") srcRev srcOwner srcRepo
+  printf ("Fetching GitHub CI (hydra) status for commit "%n%" of "%n%"/"%n%"\n") srcRev srcOwner srcRepo
   buildURL <- hydraURL theHydraJob src
   printf ("Build URL is "%s%"\n") (getUrl buildURL)
 
@@ -71,7 +71,7 @@ downloadCardanoSLOld srcJson = do
 -- | Gets CardanoSL.zip corresponding to the src json revision from AppVeyor CI
 downloadCardanoSLArtifact :: CardanoSource -> IO L8.ByteString
 downloadCardanoSLArtifact src@CardanoSource{..} = do
-  printf ("Fetching GitHub CI status for commit "%n%" of "%n%"/"%n%"\n") srcRev srcOwner srcRepo
+  printf ("Fetching GitHub CI (appveyor) status for commit "%n%" of "%n%"/"%n%"\n") srcRev srcOwner srcRepo
   buildURL <- appVeyorURL src
   printf ("Build URL is "%s%"\n") (getUrl buildURL)
   jobs <- appVeyorJobs buildURL
@@ -162,7 +162,9 @@ appVeyorURL src = fmap collect <$> statusFor' src >>= \case
   Right Nothing  -> throwM $ StatusMissingError src
   Left err       -> throwM $ GitHubStatusError src err
   where
+    collect :: Vector GH.Status -> Maybe URL
     collect = safeHead . mapMaybe statusTargetUrl . filter isAppVeyor . toList
+    isAppVeyor :: GH.Status -> Bool
     isAppVeyor st = statusContext st == Just "continuous-integration/appveyor/branch"
 
 statusFor' :: CardanoSource -> IO (Either GH.Error (Vector GH.Status))