IKEA buttons

src/HomeAssistant/Runtime.hs

@@ -26,7 +26,7 @@ import HomeAssistant.Runtime.Connection (readerAction, writerAction)
 import HomeAssistant.Runtime.Supervisor (defaultBackoff, supervised)
 import Network.Socket (withSocketsDo)
 import System.Environment (getEnv)
-import HomeAssistant.Controller.Bedroom (bedroomPresenceController)
+import HomeAssistant.Controller.Bedroom (bedroomPresenceController, bedroomButtonController)
 
 step :: (forall x. eff x -> IO x) -> Mealy eff a b -> a -> IO (b, Mealy eff a b)
 step nt (Mealy f) a = do
@@ -36,7 +36,10 @@ step nt (Mealy f) a = do
 data Controller = forall b. Controller T.Text (HASS (Event Value) b)
 
 controllers :: [Controller]
-controllers = [Controller "bedroom-presence" bedroomPresenceController]
+controllers =
+  [ Controller "bedroom-presence" bedroomPresenceController
+  , Controller "bedroom-button" bedroomButtonController
+  ]
 
 -- | Steps the machine for every inbound message; service calls go to the
 -- bus. A restart re-dups the inbound channel and starts from the machine's