Merge pull request #37 from Dr-Mazen-Khaddaj/main

Added Preview Network Support
maestro-org · Aug 30, 2023 · 541bc5a · 541bc5a
2 parents deb1e13 + cf1e63f
commit 541bc5a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Maestro/Client/Env.hs b/src/Maestro/Client/Env.hs
@@ -39,9 +39,10 @@ data MaestroEnv (v :: MaestroApiVersion) = MaestroEnv
   , _maeToken     :: !MaestroToken
   }
 
-data MaestroNetwork = Mainnet | Preprod
+data MaestroNetwork = Mainnet | Preprod | Preview
 
 maestroBaseUrl :: MaestroNetwork -> MaestroApiVersion -> String
+maestroBaseUrl Preview v = "https://preview.gomaestro-api.org/" <> show v
 maestroBaseUrl Preprod v = "https://preprod.gomaestro-api.org/" <> show v
 maestroBaseUrl Mainnet v = "https://mainnet.gomaestro-api.org/" <> show v