Toggle controllers

2026-08-21 12:02:42 +03:00
parent 5954c68682
commit dfc744842d
2 changed files with 7 additions and 7 deletions
@@ -15,7 +15,7 @@ spec :: Spec
 spec = describe "runController" $ do
  it "feeds inbound events through the machine and forwards service calls" $ do
    bus <- newBus 0
-    _ <- async (runController bus (Controller "test" lightController))
+    _ <- async (runController bus (Controller "test" lightController True))
    putStrLn "Before the delay"
    threadDelay 100000 -- let the controller dup its inbound channel
    putStrLn "After the delay"