MasseR/home-assistant-controller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Works

Browse Source
This commit is contained in:
MasseR
2026-08-21 13:15:31 +03:00
parent dfc744842d
commit e50a505a13
16 changed files with 85 additions and 3072 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/HomeAssistant/Controller.hs
+3 -3
View File
@@ -52,18 +52,18 @@ data Service = Service
deriving (Show, Eq)
data HASSEff a where
CallService :: Service -> HASSEff ()
CallService :: Request -> Service -> HASSEff ()
Debug :: Show a => a -> HASSEff ()
Trace :: Show a => Request -> a -> HASSEff ()
type HASS a b = Mealy HASSEff a b
callService :: Service -> HASS a ()
callService service = eff (\_ -> CallService service)
callService service = eff (\req _ -> CallService req service)
debug :: Show a => HASS a a
debug = proc x -> do
eff Debug -< x
eff (const Debug) -< x
returnA -< x
traceEvent :: Show a => HASS (Event a) (Event a)