Remove external key pair

input-output-hk · Jun 5, 2023 · e3613e0 · e3613e0
1 parent b5fefcc
commit e3613e0
Show file tree

Hide file tree

Showing 5 changed files with 2 additions and 15 deletions.
diff --git a/hydra-cluster/config/credentials/external.sk b/hydra-cluster/config/credentials/external.sk
diff --git a/hydra-cluster/config/credentials/external.vk b/hydra-cluster/config/credentials/external.vk
diff --git a/hydra-cluster/hydra-cluster.cabal b/hydra-cluster/hydra-cluster.cabal
@@ -34,8 +34,6 @@ data-files:
   config/credentials/bob.vk
   config/credentials/carol.sk
   config/credentials/carol.vk
-  config/credentials/external.sk
-  config/credentials/external.vk
   config/credentials/faucet.sk
   config/credentials/faucet.vk
   config/devnet/byron-delegate.key

diff --git a/hydra-cluster/src/Hydra/Cluster/Fixture.hs b/hydra-cluster/src/Hydra/Cluster/Fixture.hs
@@ -48,7 +48,6 @@ data Actor
   | Bob
   | Carol
   | Faucet
-  | External
   deriving (Eq, Show)
 
 actorName :: Actor -> String
@@ -57,7 +56,6 @@ actorName = \case
   Bob -> "bob"
   Carol -> "carol"
   Faucet -> "faucet"
-  External -> "external"
 
 -- | A network known to the hydra-cluster. That means we have configuration
 -- files to connect to at least these networks.

diff --git a/hydra-cluster/src/Hydra/Cluster/Scenarios.hs b/hydra-cluster/src/Hydra/Cluster/Scenarios.hs
@@ -34,6 +34,7 @@ import Hydra.Party (Party)
 import HydraNode (EndToEndLog (..), input, output, send, waitFor, waitForAllMatch, waitMatch, withHydraNode)
 import Network.HTTP.Req
 import Test.Hspec.Expectations (shouldBe)
+import Test.QuickCheck (generate)
 
 restartedNodeCanObserveCommitTx :: Tracer IO EndToEndLog -> FilePath -> RunningNode -> TxId -> IO ()
 restartedNodeCanObserveCommitTx tracer workDir cardanoNode hydraScriptsTxId = do
@@ -154,7 +155,7 @@ singlePartyCommitsFromExternal tracer workDir node@RunningNode{networkId} hydraS
     refuelIfNeeded tracer node Alice 25_000_000
 
     -- these keys should mimic external wallet keys needed to sign the commit tx
-    (externalVk, externalSk) <- keysFor External
+    (externalVk, externalSk) <- generate genKeyPair
     -- Start hydra-node on chain tip
     tip <- queryTip networkId nodeSocket
     let contestationPeriod = UnsafeContestationPeriod 100