Address review comments

input-output-hk · Nov 29, 2022 · e3c73d2 · e3c73d2
1 parent b57725b
commit e3c73d2
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 4 deletions.
diff --git a/hydra-node/hydra-node.cabal b/hydra-node/hydra-node.cabal
@@ -365,5 +365,5 @@ test-suite tests
     , websockets
     , yaml
 
-  build-tool-depends: hspec-discover:hspec-discover -any
+  build-tool-depends: hspec-discover:hspec-discover
   ghc-options:        -threaded -rtsopts
diff --git a/hydra-node/src/Hydra/Chain/Direct/Handlers.hs b/hydra-node/src/Hydra/Chain/Direct/Handlers.hs
@@ -216,7 +216,7 @@ chainSyncHandler tracer callback getTimeHandle ctx =
           Right utcTime ->
             callback (const . Just $ Tick utcTime)
 
-    forM_ receivedTxs $ \tx -> do
+    forM_ receivedTxs $ \tx ->
       callback $ \ChainStateAt{chainState = cs} ->
         case observeSomeTx ctx cs tx of
           Nothing -> Nothing

diff --git a/hydra-node/test/Hydra/Model/MockChain.hs b/hydra-node/test/Hydra/Model/MockChain.hs
@@ -129,9 +129,7 @@ mockChainAndNetwork tr seedKeys _parties nodes = do
   blockTime = 20 -- seconds
   simulateTicks queue = forever $ do
     threadDelay blockTime
-    -- now <- getCurrentTime
     hasTx <- atomically $ tryReadTQueue queue
-    --fmap node <$> readTVarIO nodes >>= \ns -> mapM_ (`handleChainEvent` Tick now) ns
     case hasTx of
       Just tx -> do
         let block = mkBlock tx