Every network needs checkpoints.json (#2502)

And sanchonet is gone.

Author: noonio

hydra-cluster/src/CardanoNode.hs

@@ -267,13 +267,12 @@ withCardanoNodeOnKnownNetwork tracer stateDirectory knownNetwork action = do
         createDirectoryIfMissing True $ stateDirectory </> takeDirectory fn
         fetchConfigFile (knownNetworkPath </> fn)
           >>= writeFileBS (stateDirectory </> fn)
-    case knownNetwork of
-      Mainnet -> forM_ ["checkpoints.json"] $
+    when (knownNetwork `elem` [Mainnet, Preview]) $ do
+      forM_ ["checkpoints.json"] $
         \fn -> do
           createDirectoryIfMissing True $ stateDirectory </> takeDirectory fn
           fetchConfigFile (knownNetworkPath </> fn)
             >>= writeFileBS (stateDirectory </> fn)
-      _ -> pure ()
 
   knownNetworkPath =
     knownNetworkConfigBaseURL </> knownNetworkName
@@ -286,7 +285,6 @@ withCardanoNodeOnKnownNetwork tracer stateDirectory knownNetwork action = do
     Preview -> "environments-pre/preview"
     Preproduction -> "environments-pre/preprod"
     Mainnet -> "environments/mainnet"
-    Sanchonet -> "environments/sanchonet"
     -- NOTE: Here we map blockfrost networks to cardano ones since we expect to find actor keys
     -- in known locations when running smoke-tests.
     BlockfrostPreview -> "environments-pre/preview"

hydra-cluster/src/Hydra/Cluster/Fixture.hs

@@ -74,7 +74,6 @@ data KnownNetwork
   = Preview
   | Preproduction
   | Mainnet
-  | Sanchonet
   | BlockfrostPreview
   | BlockfrostPreprod
   | BlockfrostMainnet
@@ -86,7 +85,6 @@ toNetworkId = \case
   Mainnet -> Api.Mainnet
   Preproduction -> Api.Testnet (Api.NetworkMagic 1)
   Preview -> Api.Testnet (Api.NetworkMagic 2)
-  Sanchonet -> Api.Testnet (Api.NetworkMagic 4)
   BlockfrostPreview -> Api.Testnet (Api.NetworkMagic 2)
   BlockfrostPreprod -> Api.Testnet (Api.NetworkMagic 1)
   BlockfrostMainnet -> Api.Mainnet

hydra-cluster/src/Hydra/Cluster/Mithril.hs

@@ -61,7 +61,6 @@ downloadLatestSnapshotTo tracer network directory = do
     Mainnet -> Just "https://raw.githubusercontent.com/input-output-hk/mithril/main/mithril-infra/configuration/release-mainnet/genesis.vkey"
     Preproduction -> Just "https://raw.githubusercontent.com/input-output-hk/mithril/main/mithril-infra/configuration/release-preprod/genesis.vkey"
     Preview -> Just "https://raw.githubusercontent.com/input-output-hk/mithril/main/mithril-infra/configuration/pre-release-preview/genesis.vkey"
-    Sanchonet -> Just "https://raw.githubusercontent.com/input-output-hk/mithril/main/mithril-infra/configuration/testing-sanchonet/genesis.vkey"
     BlockfrostPreview -> Nothing
     BlockfrostPreprod -> Nothing
     BlockfrostMainnet -> Nothing
@@ -70,7 +69,6 @@ downloadLatestSnapshotTo tracer network directory = do
     Mainnet -> Just "https://raw.githubusercontent.com/input-output-hk/mithril/main/mithril-infra/configuration/release-mainnet/ancillary.vkey"
     Preproduction -> Just "https://raw.githubusercontent.com/input-output-hk/mithril/main/mithril-infra/configuration/release-preprod/ancillary.vkey"
     Preview -> Just "https://raw.githubusercontent.com/input-output-hk/mithril/main/mithril-infra/configuration/pre-release-preview/ancillary.vkey"
-    Sanchonet -> Just "https://raw.githubusercontent.com/input-output-hk/mithril/main/mithril-infra/configuration/testing-sanchonet/ancillary.vkey"
     BlockfrostPreview -> Nothing
     BlockfrostPreprod -> Nothing
     BlockfrostMainnet -> Nothing
@@ -79,7 +77,6 @@ downloadLatestSnapshotTo tracer network directory = do
     Mainnet -> Just "https://aggregator.release-mainnet.api.mithril.network/aggregator"
     Preproduction -> Just "https://aggregator.release-preprod.api.mithril.network/aggregator"
     Preview -> Just "https://aggregator.pre-release-preview.api.mithril.network/aggregator"
-    Sanchonet -> Just "https://aggregator.testing-sanchonet.api.mithril.network/aggregator"
     BlockfrostPreview -> Nothing
     BlockfrostPreprod -> Nothing
     BlockfrostMainnet -> Nothing

hydra-cluster/src/Hydra/Cluster/Options.hs

@@ -48,7 +48,6 @@ parseOptions =
     flag' (Just Preview) (long "preview" <> help "The preview testnet")
       <|> flag' (Just Preproduction) (long "preprod" <> help "The pre-production testnet")
       <|> flag' (Just Mainnet) (long "mainnet" <> help "The mainnet")
-      <|> flag' (Just Sanchonet) (long "sanchonet" <> help "The sanchonet preview testnet")
       <|> flag' (Just BlockfrostPreview) (long "blockfrost-preview" <> help "The preview testnet using Blockfrost")
       <|> flag' (Just BlockfrostPreprod) (long "blockfrost-preprod" <> help "The pre-production testnet using Blockfrost")
       <|> flag' (Just BlockfrostMainnet) (long "blockfrost-mainnet" <> help "The mainnet using Blockfrost")

hydra-cluster/test/Test/Hydra/Cluster/MithrilSpec.hs

@@ -18,7 +18,6 @@ spec = parallel $ do
   describe "downloadLatestSnapshotTo" $
     forEachKnownNetwork "invokes mithril-client correctly" $ \network -> do
       let blockfrostNetworks = [BlockfrostPreview, BlockfrostPreprod, BlockfrostMainnet]
-      when (network == Sanchonet) $ pendingWith "Sanchonet not available anymore"
       when (network `elem` blockfrostNetworks) $ pendingWith "Blockfrost doesn't need mithril to run"
       (tracer, getTraces) <- captureTracer "MithrilSpec"
       withTempDir ("mithril-download-" <> show network) $ \tmpDir -> do