Livingroom lights

src/HomeAssistant/Runtime.hs

@@ -40,6 +40,7 @@ import qualified HomeAssistant.Runtime.Graphing
 import System.FilePath ((</>))
 import Text.Read (readMaybe)
 import HomeAssistant.Controller.Kitchen (kitchenMotionController)
+import HomeAssistant.Controller.Livingroom (livingroomPresenceController)
 
 step :: (MonadIO m) => FilePath -> UUID -> Auto m a b -> a -> m (b, Auto m a b)
 step path trace st a = do
@@ -59,6 +60,7 @@ controllers =
   , Controller "ruuvi-controller" ruuviController False
   , Controller "school-light-controller" schoolLightController True
   , Controller "kitchen-motion-controller" kitchenMotionController True
+  , Controller "livingroom-presence" livingroomPresenceController True
   ]
 
 -- | Steps the machine for every inbound message; service calls go to the