diff --git a/test/Chainweb/Test/Pact/PactSingleChainTest.hs b/test/Chainweb/Test/Pact/PactSingleChainTest.hs index 47d9311c18..f77e7c8c0e 100644 --- a/test/Chainweb/Test/Pact/PactSingleChainTest.hs +++ b/test/Chainweb/Test/Pact/PactSingleChainTest.hs @@ -317,7 +317,7 @@ pactStateSamePreAndPostCompaction rdb = let makeTx :: Int -> BlockHeader -> IO ChainwebTransaction makeTx nth bh = buildCwCmd - $ set cbSigners [mkSigner' sender00 [mkGasCap, mkTransferCap "sender00" "sender01" 1.0]] + $ set cbSigners [mkEd25519Signer' sender00 [mkGasCap, mkTransferCap "sender00" "sender01" 1.0]] $ setFromHeader bh $ mkCmd (sshow (nth, bh)) $ mkExec' "(coin.transfer \"sender00\" \"sender01\" 1.0)" @@ -389,7 +389,7 @@ compactionIsIdempotent rdb = let makeTx :: Int -> BlockHeader -> IO ChainwebTransaction makeTx nth bh = buildCwCmd - $ set cbSigners [mkSigner' sender00 [mkGasCap, mkTransferCap "sender00" "sender01" 1.0]] + $ set cbSigners [mkEd25519Signer' sender00 [mkGasCap, mkTransferCap "sender00" "sender01" 1.0]] $ setFromHeader bh $ mkCmd (sshow (nth, bh)) $ mkExec' "(coin.transfer \"sender00\" \"sender01\" 1.0)" diff --git a/test/Chainweb/Test/Pact/RemotePactTest.hs b/test/Chainweb/Test/Pact/RemotePactTest.hs index 9394978b8f..365de7e986 100644 --- a/test/Chainweb/Test/Pact/RemotePactTest.hs +++ b/test/Chainweb/Test/Pact/RemotePactTest.hs @@ -249,7 +249,7 @@ txlogsCompactionTest :: Pact.TxCreationTime -> ClientEnv -> FilePath -> IO () txlogsCompactionTest t cenv pactDbDir = do let cmd :: Text -> Text -> CmdBuilder cmd nonce tx = do - set cbSigners [mkSigner' sender00 []] + set cbSigners [mkEd25519Signer' sender00 []] $ set cbTTL defaultMaxTTL $ set cbCreationTime t $ set cbChainId cid