From cf1e63fc02f4cda4a5e0b54a2dd0652649406461 Mon Sep 17 00:00:00 2001 From: "Dr. Mazen Khaddaj" Date: Wed, 30 Aug 2023 18:31:16 +0300 Subject: [PATCH] Added Preview Network Support --- src/Maestro/Client/Env.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/Maestro/Client/Env.hs b/src/Maestro/Client/Env.hs index 6b15c7f..dd9d883 100644 --- 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