Severity level

2026-08-21 13:55:22 +03:00
parent a77b85b576
commit c60508fd0c
4 changed files with 21 additions and 18 deletions
@@ -10,10 +10,11 @@ import HomeAssistant.Controller (light, lightController, Target (..))
 import HomeAssistant.Runtime (Controller (..), runController)
 import HomeAssistant.Runtime.Bus
 import Test.Hspec
+import Katip (Severity(..))

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