Add KnownWallet helper

Plutonomicon · Aug 2, 2024 · 01a5ee7 · 01a5ee7
1 parent a3621d8
commit 01a5ee7
Show file tree

Hide file tree

Showing 35 changed files with 207 additions and 128 deletions.
diff --git a/Makefile b/Makefile
@@ -14,7 +14,7 @@ purs-args := "--stash --censor-lib --censor-codes=UserDefinedWarning,ImplicitImp
 ### Bundler setup
 
 # The main Purescript module
-ps-entrypoint := Ctl.Examples.ByUrl
+ps-entrypoint := Ctl.Examples.Gov.SubmitVoteScript
 # The entry point function in the main PureScript module
 ps-entrypoint-function := main
 # Whether to bundle for the browser ("1") or the node ("")

diff --git a/examples/AdditionalUtxos.purs b/examples/AdditionalUtxos.purs
@@ -30,8 +30,10 @@ import Contract.BalanceTxConstraints
   )
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Nami)
   , WalletSpec(ConnectToGenericCip30)
   , testnetConfig
+  , walletName
   )
 import Contract.Log (logInfo')
 import Contract.Monad (Contract, launchAff_, runContract)
@@ -58,7 +60,8 @@ import Test.QuickCheck.Gen (randomSampleOne)
 
 main :: Effect Unit
 main = example $ testnetConfig
-  { walletSpec = Just $ ConnectToGenericCip30 "nami" { cip95: false }
+  { walletSpec =
+      Just $ ConnectToGenericCip30 (walletName Nami) { cip95: false }
   }
 
 example :: ContractParams -> Effect Unit

diff --git a/examples/AlwaysMints.purs b/examples/AlwaysMints.purs
@@ -23,8 +23,10 @@ import Cardano.Types.RedeemerDatum as RedeemerDatum
 import Cardano.Types.Transaction as Transaction
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Nami)
   , WalletSpec(ConnectToGenericCip30)
   , testnetConfig
+  , walletName
   )
 import Contract.Log (logInfo')
 import Contract.Monad (Contract, launchAff_, liftContractM, runContract)
@@ -35,7 +37,8 @@ import Data.Map as Map
 
 main :: Effect Unit
 main = example $ testnetConfig
-  { walletSpec = Just $ ConnectToGenericCip30 "nami" { cip95: false }
+  { walletSpec =
+      Just $ ConnectToGenericCip30 (walletName Nami) { cip95: false }
   }
 
 contract :: Contract Unit

diff --git a/examples/AlwaysSucceeds.purs b/examples/AlwaysSucceeds.purs
@@ -38,8 +38,10 @@ import Cardano.Types.TransactionUnspentOutput (toUtxoMap)
 import Contract.Address (mkAddress)
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Nami)
   , WalletSpec(ConnectToGenericCip30)
   , testnetConfig
+  , walletName
   )
 import Contract.Log (logInfo')
 import Contract.Monad (Contract, launchAff_, runContract)
@@ -59,7 +61,8 @@ import Effect.Exception (error)
 
 main :: Effect Unit
 main = example $ testnetConfig
-  { walletSpec = Just $ ConnectToGenericCip30 "nami" { cip95: false }
+  { walletSpec =
+      Just $ ConnectToGenericCip30 (walletName Nami) { cip95: false }
   }
 
 contract :: Contract Unit

diff --git a/examples/AwaitTxConfirmedWithTimeout.purs b/examples/AwaitTxConfirmedWithTimeout.purs
@@ -13,8 +13,10 @@ import Contract.Prelude
 import Cardano.AsCbor (decodeCbor)
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Nami)
   , WalletSpec(ConnectToGenericCip30)
   , testnetConfig
+  , walletName
   )
 import Contract.Log (logInfo')
 import Contract.Monad (Contract, launchAff_, runContract, throwContractError)
@@ -25,7 +27,8 @@ import Partial.Unsafe (unsafePartial)
 
 main :: Effect Unit
 main = example $ testnetConfig
-  { walletSpec = Just $ ConnectToGenericCip30 "nami" { cip95: false }
+  { walletSpec =
+      Just $ ConnectToGenericCip30 (walletName Nami) { cip95: false }
   }
 
 example :: ContractParams -> Effect Unit

diff --git a/examples/ByUrl.purs b/examples/ByUrl.purs
@@ -4,12 +4,14 @@ import Prelude
 
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Nami, Gero, Flint, Eternl, Lode, Lace, NuFi)
   , WalletSpec(ConnectToGenericCip30)
   , blockfrostPublicPreprodServerConfig
   , blockfrostPublicPreviewServerConfig
   , mainnetConfig
   , mkBlockfrostBackendParams
   , testnetConfig
+  , walletName
   )
 import Contract.Log (logInfo')
 import Contract.Monad (Contract)
@@ -50,25 +52,6 @@ import Web.HTML (window)
 import Web.HTML.Window (localStorage)
 import Web.Storage.Storage (getItem)
 
-data Wallet
-  = NamiWallet
-  | GeroWallet
-  | FlintWallet
-  | EternlWallet
-  | LodeWallet
-  | LaceWallet
-  | NuFiWallet
-
-walletName :: Wallet -> String
-walletName = case _ of
-  NamiWallet -> "nami"
-  GeroWallet -> "gerowallet"
-  FlintWallet -> "flint"
-  EternlWallet -> "eternl"
-  LodeWallet -> "LodeWallet"
-  LaceWallet -> "lace"
-  NuFiWallet -> "nufi"
-
 main :: Effect Unit
 main = do
   -- Read Blockfrost API key from the browser storage.
@@ -84,59 +67,59 @@ main = do
           Map.fromFoldable
             [ "blockfrost-nami-preview"
                 /\ (mkBlockfrostPreviewConfig mbApiKey)
-                  { walletSpec = connectTo NamiWallet }
+                  { walletSpec = connectTo Nami }
                 /\ Nothing
             , "blockfrost-gero-preview"
                 /\ (mkBlockfrostPreviewConfig mbApiKey)
-                  { walletSpec = connectTo GeroWallet }
+                  { walletSpec = connectTo Gero }
                 /\ Nothing
             , "blockfrost-eternl-preview"
                 /\ (mkBlockfrostPreviewConfig mbApiKey)
-                  { walletSpec = connectTo EternlWallet }
+                  { walletSpec = connectTo Eternl }
                 /\ Nothing
             , "blockfrost-lode-preview"
                 /\ (mkBlockfrostPreviewConfig mbApiKey)
-                  { walletSpec = connectTo LodeWallet }
+                  { walletSpec = connectTo Lode }
                 /\ Nothing
             , "blockfrost-flint-preview"
                 /\ (mkBlockfrostPreviewConfig mbApiKey)
-                  { walletSpec = connectTo FlintWallet }
+                  { walletSpec = connectTo Flint }
                 /\ Nothing
             , "blockfrost-nufi-preview"
                 /\ (mkBlockfrostPreviewConfig mbApiKey)
-                  { walletSpec = connectTo NuFiWallet }
+                  { walletSpec = connectTo NuFi }
                 /\ Nothing
             , "blockfrost-lace-preview"
                 /\ (mkBlockfrostPreviewConfig mbApiKey)
-                  { walletSpec = connectTo LaceWallet }
+                  { walletSpec = connectTo Lace }
                 /\ Nothing
             , "blockfrost-nami-preprod"
                 /\ (mkBlockfrostPreprodConfig mbApiKey)
-                  { walletSpec = connectTo NamiWallet }
+                  { walletSpec = connectTo Nami }
                 /\ Nothing
             , "blockfrost-gero-preprod"
                 /\ (mkBlockfrostPreprodConfig mbApiKey)
-                  { walletSpec = connectTo GeroWallet }
+                  { walletSpec = connectTo Gero }
                 /\ Nothing
             , "blockfrost-eternl-preprod"
                 /\ (mkBlockfrostPreprodConfig mbApiKey)
-                  { walletSpec = connectTo EternlWallet }
+                  { walletSpec = connectTo Eternl }
                 /\ Nothing
             , "blockfrost-lode-preprod"
                 /\ (mkBlockfrostPreprodConfig mbApiKey)
-                  { walletSpec = connectTo LodeWallet }
+                  { walletSpec = connectTo Lode }
                 /\ Nothing
             , "blockfrost-flint-preprod"
                 /\ (mkBlockfrostPreprodConfig mbApiKey)
-                  { walletSpec = connectTo FlintWallet }
+                  { walletSpec = connectTo Flint }
                 /\ Nothing
             , "blockfrost-nufi-preprod"
                 /\ (mkBlockfrostPreprodConfig mbApiKey)
-                  { walletSpec = connectTo NuFiWallet }
+                  { walletSpec = connectTo NuFi }
                 /\ Nothing
             , "blockfrost-lace-preprod"
                 /\ (mkBlockfrostPreprodConfig mbApiKey)
-                  { walletSpec = connectTo LaceWallet }
+                  { walletSpec = connectTo Lace }
                 /\ Nothing
             ]
   addLinks walletsWithBlockfrost examples
@@ -155,26 +138,26 @@ getBlockfrostApiKey = do
 
 wallets :: Map E2EConfigName (ContractParams /\ Maybe String)
 wallets = map (map walletName) <$> Map.fromFoldable
-  [ "nami" /\ testnetConfig' NamiWallet /\ Nothing
-  , "gero" /\ testnetConfig' GeroWallet /\ Nothing
-  , "flint" /\ testnetConfig' FlintWallet /\ Nothing
-  , "eternl" /\ testnetConfig' EternlWallet /\ Nothing
-  , "lode" /\ testnetConfig' LodeWallet /\ Nothing
-  , "nufi" /\ testnetConfig' NuFiWallet /\ Nothing
-  , "lace" /\ testnetConfig' LaceWallet /\ Nothing
+  [ "nami" /\ testnetConfig' Nami /\ Nothing
+  , "gero" /\ testnetConfig' Gero /\ Nothing
+  , "flint" /\ testnetConfig' Flint /\ Nothing
+  , "eternl" /\ testnetConfig' Eternl /\ Nothing
+  , "lode" /\ testnetConfig' Lode /\ Nothing
+  , "nufi" /\ testnetConfig' NuFi /\ Nothing
+  , "lace" /\ testnetConfig' Lace /\ Nothing
   , "nami-mainnet" /\ mainnetNamiConfig /\ Nothing
-  , "nami-mock" /\ testnetConfig' NamiWallet /\ Just NamiWallet
-  , "gero-mock" /\ testnetConfig' GeroWallet /\ Just GeroWallet
-  , "flint-mock" /\ testnetConfig' FlintWallet /\ Just FlintWallet
-  , "lode-mock" /\ testnetConfig' LodeWallet /\ Just LodeWallet
-  , "plutip-nami-mock" /\ testnetConfig' NamiWallet /\ Just NamiWallet
-  , "plutip-gero-mock" /\ testnetConfig' GeroWallet /\ Just GeroWallet
-  , "plutip-flint-mock" /\ testnetConfig' FlintWallet /\ Just FlintWallet
-  , "plutip-lode-mock" /\ testnetConfig' LodeWallet /\ Just LodeWallet
-  , "plutip-nufi-mock" /\ testnetConfig' NuFiWallet /\ Just NuFiWallet
+  , "nami-mock" /\ testnetConfig' Nami /\ Just Nami
+  , "gero-mock" /\ testnetConfig' Gero /\ Just Gero
+  , "flint-mock" /\ testnetConfig' Flint /\ Just Flint
+  , "lode-mock" /\ testnetConfig' Lode /\ Just Lode
+  , "plutip-nami-mock" /\ testnetConfig' Nami /\ Just Nami
+  , "plutip-gero-mock" /\ testnetConfig' Gero /\ Just Gero
+  , "plutip-flint-mock" /\ testnetConfig' Flint /\ Just Flint
+  , "plutip-lode-mock" /\ testnetConfig' Lode /\ Just Lode
+  , "plutip-nufi-mock" /\ testnetConfig' NuFi /\ Just NuFi
   ]
   where
-  testnetConfig' :: Wallet -> ContractParams
+  testnetConfig' :: KnownWallet -> ContractParams
   testnetConfig' wallet =
     testnetConfig
       { walletSpec =
@@ -185,7 +168,7 @@ wallets = map (map walletName) <$> Map.fromFoldable
   mainnetNamiConfig =
     mainnetConfig
       { walletSpec =
-          Just $ ConnectToGenericCip30 (walletName NamiWallet) { cip95: false }
+          Just $ ConnectToGenericCip30 (walletName Nami) { cip95: false }
       }
 
 mkBlockfrostPreviewConfig :: Maybe String -> ContractParams

diff --git a/examples/Cip30.purs b/examples/Cip30.purs
@@ -17,8 +17,10 @@ import Cardano.Wallet.Cip30
 import Cardano.Wallet.Cip30.TypeSafe as Cip30
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Nami)
   , WalletSpec(ConnectToGenericCip30)
   , testnetConfig
+  , walletName
   )
 import Contract.Log (logInfo')
 import Contract.Monad (Contract, launchAff_, liftContractAffM, runContract)
@@ -35,7 +37,8 @@ import Effect.Exception (error)
 
 main :: Effect Unit
 main = example $ testnetConfig
-  { walletSpec = Just $ ConnectToGenericCip30 "nami" { cip95: false }
+  { walletSpec =
+      Just $ ConnectToGenericCip30 (walletName Nami) { cip95: false }
   }
 
 example :: ContractParams -> Effect Unit

diff --git a/examples/DropTokens.purs b/examples/DropTokens.purs
@@ -8,8 +8,10 @@ import Cardano.Types.MultiAsset as MultiAsset
 import Cardano.Types.Value as Value
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Nami)
   , WalletSpec(ConnectToGenericCip30)
   , testnetConfig
+  , walletName
   )
 import Contract.Log (logInfo')
 import Contract.Monad (Contract, launchAff_, runContract)
@@ -25,7 +27,8 @@ import Test.Ctl.Fixtures (nullPaymentPubKeyHash)
 
 main :: Effect Unit
 main = example $ testnetConfig
-  { walletSpec = Just $ ConnectToGenericCip30 "nami" { cip95: false }
+  { walletSpec =
+      Just $ ConnectToGenericCip30 (walletName Nami) { cip95: false }
   }
 
 example :: ContractParams -> Effect Unit

diff --git a/examples/ExUnits.purs b/examples/ExUnits.purs
@@ -20,8 +20,10 @@ import Cardano.Types.TransactionUnspentOutput (toUtxoMap)
 import Contract.Address (mkAddress)
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Nami)
   , WalletSpec(ConnectToGenericCip30)
   , testnetConfig
+  , walletName
   )
 import Contract.Credential (Credential(PubKeyHashCredential))
 import Contract.Log (logInfo')
@@ -47,7 +49,8 @@ import JS.BigInt as BigInt
 
 main :: Effect Unit
 main = example $ testnetConfig
-  { walletSpec = Just $ ConnectToGenericCip30 "nami" { cip95: false }
+  { walletSpec =
+      Just $ ConnectToGenericCip30 (walletName Nami) { cip95: false }
   }
 
 contract :: Contract Unit

diff --git a/examples/Gov/DelegateVoteAbstain.purs b/examples/Gov/DelegateVoteAbstain.purs
@@ -14,8 +14,10 @@ import Cardano.Types.PublicKey (hash) as PublicKey
 import Cardano.Types.Transaction (hash) as Transaction
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Eternl)
   , WalletSpec(ConnectToGenericCip30)
   , testnetConfig
+  , walletName
   )
 import Contract.Log (logDebug', logInfo')
 import Contract.Monad (Contract, launchAff_, runContract)
@@ -28,7 +30,8 @@ import Effect.Exception (error)
 
 main :: Effect Unit
 main = example $ testnetConfig
-  { walletSpec = Just $ ConnectToGenericCip30 "eternl" { cip95: true }
+  { walletSpec =
+      Just $ ConnectToGenericCip30 (walletName Eternl) { cip95: true }
   }
 
 example :: ContractParams -> Effect Unit

diff --git a/examples/Gov/ManageDrep.purs b/examples/Gov/ManageDrep.purs
@@ -18,8 +18,10 @@ import Cardano.Types
 import Cardano.Types.Transaction (hash) as Transaction
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Eternl)
   , WalletSpec(ConnectToGenericCip30)
   , testnetConfig
+  , walletName
   )
 import Contract.Log (logInfo')
 import Contract.Monad (Contract, launchAff_, runContract)
@@ -35,7 +37,8 @@ import Effect.Exception (message)
 
 main :: Effect Unit
 main = example $ testnetConfig
-  { walletSpec = Just $ ConnectToGenericCip30 "eternl" { cip95: true }
+  { walletSpec =
+      Just $ ConnectToGenericCip30 (walletName Eternl) { cip95: true }
   }
 
 example :: ContractParams -> Effect Unit

diff --git a/examples/Gov/ManageDrepScript.purs b/examples/Gov/ManageDrepScript.purs
@@ -24,8 +24,10 @@ import Cardano.Types.RedeemerDatum (unit) as RedeemerDatum
 import Cardano.Types.Transaction (hash) as Transaction
 import Contract.Config
   ( ContractParams
+  , KnownWallet(Eternl)
   , WalletSpec(ConnectToGenericCip30)
   , testnetConfig
+  , walletName
   )
 import Contract.Log (logInfo')
 import Contract.Monad (Contract, launchAff_, runContract)
@@ -41,7 +43,8 @@ import Effect.Exception (message)
 
 main :: Effect Unit
 main = example $ testnetConfig
-  { walletSpec = Just $ ConnectToGenericCip30 "eternl" { cip95: true }
+  { walletSpec =
+      Just $ ConnectToGenericCip30 (walletName Eternl) { cip95: true }
   }
 
 example :: ContractParams -> Effect Unit