Added Preview Network Support

maestro-org · Aug 30, 2023 · cf1e63f · cf1e63f
1 parent deb1e13
commit cf1e63f
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