Drawer controller

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, bedroomButtonController)
+import HomeAssistant.Controller.Bedroom (bedroomPresenceController, bedroomButtonController, bedroomDrawerController)
 
 step :: (forall x. eff x -> IO x) -> Mealy eff a b -> a -> IO (b, Mealy eff a b)
 step nt (Mealy f) a = do
@@ -39,6 +39,7 @@ controllers :: [Controller]
 controllers =
   [ Controller "bedroom-presence" bedroomPresenceController
   , Controller "bedroom-button" bedroomButtonController
+  , Controller "bedroom-drawer" bedroomDrawerController
   ]
 
 -- | Steps the machine for every inbound message; service calls go to the