Works

2026-08-21 13:15:31 +03:00
parent dfc744842d
commit e50a505a13
16 changed files with 85 additions and 3072 deletions
@@ -13,8 +13,7 @@ import Test.Hspec

 spec :: Spec
 spec = describe "runController" $ do
-  it "feeds inbound events through the machine and forwards service calls" $ do
-    bus <- newBus 0
+  it "feeds inbound events through the machine and forwards service calls" $ withBus $ \bus -> do
    _ <- async (runController bus (Controller "test" lightController True))
    putStrLn "Before the delay"
    threadDelay 100000 -- let the controller dup its inbound channel