Change wording in draftTx dummy handle

input-output-hk · May 25, 2023 · 7c280fd · 7c280fd
1 parent 6a99648
commit 7c280fd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/hydra-node/test/Hydra/BehaviorSpec.hs b/hydra-node/test/Hydra/BehaviorSpec.hs
@@ -595,7 +595,7 @@ simulatedChainAndNetwork initialChainState = do
           atomically $ modifyTVar nodes (node :)
           pure $
             node
-              { oc = Chain{postTx = postTx nodes history chainStateVar, draftTx = \_ -> pure $ Left (FailedToDraftTx "oops")}
+              { oc = Chain{postTx = postTx nodes history chainStateVar, draftTx = \_ -> pure $ Left (FailedToDraftTx "draftTx handle not implemented")}
               , hn = createMockNetwork node nodes
               }
       , tickThread
@@ -757,7 +757,7 @@ createHydraNode ledger nodeState signingKey otherParties outputs outputHistory c
       , hn = Network{broadcast = \_ -> pure ()}
       , nodeState
       , ledger
-      , oc = Chain{postTx = \_ -> pure (), draftTx = \_ -> pure $ Left (FailedToDraftTx "oops")}
+      , oc = Chain{postTx = \_ -> pure (), draftTx = \_ -> pure $ Left (FailedToDraftTx "draftTx handle not implemented")}
       , server =
           Server
             { sendOutput = \out -> atomically $ do

diff --git a/hydra-node/test/Hydra/NodeSpec.hs b/hydra-node/test/Hydra/NodeSpec.hs
@@ -170,7 +170,7 @@ createHydraNode signingKey otherParties contestationPeriod events = do
       { eq
       , hn = Network{broadcast = \_ -> pure ()}
       , nodeState
-      , oc = Chain{postTx = \_ -> pure (), draftTx = \_ -> pure $ Left (FailedToDraftTx "error")}
+      , oc = Chain{postTx = \_ -> pure (), draftTx = \_ -> pure $ Left (FailedToDraftTx "draftTx handle not implemented")}
       , server = Server{sendOutput = \_ -> pure ()}
       , ledger = simpleLedger
       , env =