api: add Sanchonet environment

blockfrost · Dec 1, 2023 · dbc91b3 · dbc91b3
1 parent 37ae32d
commit dbc91b3
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/blockfrost-api/src/Blockfrost/Env.hs b/blockfrost-api/src/Blockfrost/Env.hs
@@ -20,6 +20,7 @@ data Env =
   | Testnet
   | Preprod
   | Preview
+  | Sanchonet
   | Localhost
   deriving (Eq, Read, Show, Ord, Generic)
 
@@ -30,4 +31,4 @@ parseEnv tEnv = case Text.Read.readMaybe (Data.Text.unpack $ Data.Text.toTitle t
   Nothing ->
     Left
       $ "Unknown environment: `" <> tEnv <> "`"
-      <> " expecting one of `ipfs`, `mainnet`, `testnet`, `preprod`, `preview`, `localhost`"
+      <> " expecting one of `ipfs`, `mainnet`, `testnet`, `preprod`, `preview`, `sanchonet`, `localhost`"
diff --git a/blockfrost-client-core/src/Blockfrost/Client/Core.hs b/blockfrost-client-core/src/Blockfrost/Client/Core.hs
@@ -69,6 +69,7 @@ subdomainByEnv Mainnet   = pure "cardano-mainnet"
 subdomainByEnv Testnet   = pure "cardano-testnet"
 subdomainByEnv Preprod   = pure "cardano-preprod"
 subdomainByEnv Preview   = pure "cardano-preview"
+subdomainByEnv Sanchonet = pure "cardano-sanchonet"
 subdomainByEnv Localhost = Nothing
 
 -- | Read file according to BLOCKFROST_TOKEN_PATH environment variable name.