Update tests

2026-08-21 11:55:27 +03:00
parent efcee8b90a
commit 5954c68682
5 changed files with 31 additions and 16 deletions
@@ -55,8 +55,7 @@ runController bus (Controller _name machine) = do
    go inbound f = do
      msg <- atomically (readTChan inbound)
      uuid <- UUID.V4.nextRandom
-      -- (_, f') <- step (channelHassEval bus) f (Event msg)
-      (_, f') <- step (dryRunHassEval (busGen bus)) uuid f (Event msg)
+      (_, f') <- step (channelHassEval bus) uuid f (Event msg)
      go inbound f'

 defaultMain :: IO ()