Add Runtime.Bus with channel-based effect interpreter

2026-08-20 19:29:56 +03:00
parent aa5a91bfa3
commit 78248388ac
7 changed files with 114 additions and 16 deletions
@@ -40,7 +40,7 @@ data Service = Service
  , serviceData :: Maybe Value
  , serviceTarget :: T.Text
  }
-  deriving Show
+  deriving (Show, Eq)

 data HASSEff a where
  CallService :: Service -> HASSEff ()