Add requestHandler field to Request

2026-09-25 12:59:14 +03:00
parent bd5f97f96e
commit 894d8f8436
6 changed files with 13 additions and 12 deletions
@@ -33,7 +33,7 @@ spec = describe "Bus" $ do
    r2 `shouldBe` (Event (Number 1), Event (Number 2))

  it "channelHassEval writes CallService to the outbound channel" $ withTestBus $ \bus -> do
-    let req = Request (UTCTime (toEnum 0) 0) utc nil
+    let req = Request (UTCTime (toEnum 0) 0) utc nil "test"
        svc = Service "light" "turn_on" Nothing [EntityId "light.bedroom_masse"]
    runKatipContextT (busLogEnv bus) () (Namespace ["test"]) $
      channelHassEval bus (CallService req svc)