Merge pull request #9 from input-output-hk/misc-updates

Misc updates

Buildkite/API.hs

@@ -143,7 +143,7 @@ listArtifactsForBuild :: APIToken      -- ^ token generated in buildkite setting
 listArtifactsForBuild t org pipeline buildNum = getResponseBody <$> httpJSON req
   where
     req = makeRequest t path
-    path = buildPath org pipeline buildNum ++ [ "artifacts" ]
+    path = buildPath org pipeline buildNum ++ [ "artifacts?per_page=100" ]
 
 -- | Returns the URL for downloading an artifact.
 -- Although the returned URL might be in our own public S3 bucket,

UpdateLogic.hs

@@ -199,7 +199,13 @@ getInstallersResults keys instP daedalusRev destDir = do
 
 handleCIResults :: InstallerPredicate -> Turtle.FilePath -> Either Text [CIResult] -> IO [CIResult2]
 handleCIResults instP destDir (Right rs) = do
+  print rs
   let rs' = filter instP rs
+  mapM_ (\result -> do
+    print result
+    print $ (installerNetwork . ciResultFilename) result
+    ) rs
+  print rs'
   fetchCIResults destDir rs'
 handleCIResults _ _ (Left msg) = T.putStrLn msg >> pure []
 

clusters/mainnet-flight.json

@@ -0,0 +1,6 @@
+{
+  "bucket":"update-cardano-mainnet-flight.iohk.io",
+  "bucket-url":"update-cardano-mainnet-flight.iohk.io",
+  "environment":"MainnetFlight"
+}
+

clusters/mainnet.json

@@ -1,6 +1,6 @@
 {
-  "bucket":"proposal-ui-test",
-  "bucket-url":"proposal-ui-test.s3.amazonaws.com",
+  "bucket":"update-cardano-mainnet.iohk.io",
+  "bucket-url":"update-cardano-mainnet.iohk.io",
   "environment":"Production"
 }