We do not need to wait for a day here

Waiting for a day, at a pace of one block every 20 seconds would
generate 4320 blocks which takes forever to be created and
processes, even in IO sim.

We don't really observe the issue now because we cheat in the
way we generate the block.

This commit helps preparing for a more realistic block generation.

hydra-node/test/Hydra/ModelSpec.hs

@@ -224,15 +224,11 @@ prop_checkModel actions =
         -- now a "more active" simulated chain which ticks away and not simply
         -- detects a deadlock if we wait for infinity. Maybe cancelling the
         -- simulation's 'tickThread' and wait then could work?
-        run $ lift waitForADay
         let parties = Set.fromList $ deriveParty . fst <$> hydraParties
         nodes <- run $ gets nodes
         assert (parties == Map.keysSet nodes)
         forM_ parties $ \p -> do
           assertBalancesInOpenHeadAreConsistent hydraState nodes p
- where
-  waitForADay :: MonadDelay m => m ()
-  waitForADay = threadDelay $ 60 * 60 * 24
 
 assertBalancesInOpenHeadAreConsistent ::
   GlobalState ->