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
@@ -20,7 +20,7 @@ import AFRP (Mealy (..), Request (..), stepAuto)
 import HomeAssistant.Controller (HASSEff (..), Service)

 fakeRequest :: Request
-fakeRequest = Request (sec 0) utc nil
+fakeRequest = Request (sec 0) utc nil "test"

 sec :: Integer -> UTCTime
 sec n = UTCTime (toEnum 0) (fromIntegral n)