Toggle controllers

test/RuntimeSpec.hs

@@ -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"