Test the bedroom spec

src/HomeAssistant/Controller/Children.hs

@@ -0,0 +1,14 @@
+module HomeAssistant.Controller.Children where
+import HomeAssistant.Controller (HASS)
+import AFRP (Event)
+import Data.Aeson (Value)
+import Control.Arrow (Arrow(..))
+
+-- I don't have any proper presence sensors in their bedroom
+-- and they are notoriously bad at changing clothes in complete darkness
+-- So I have set up an automation that attempts to turn on the lights sometime
+-- before they leave for school and turns them off a bit later
+--
+-- I don't have enough primitives for this yet, leaving as a placeholder
+schoolLightController :: HASS (Event Value) ()
+schoolLightController = arr (const ())

src/HomeAssistant/Runtime.hs

@@ -46,8 +46,8 @@ controllers =
   [ Controller "bedroom-presence" bedroomPresenceController False
   , Controller "bedroom-button" bedroomButtonController False -- This works but leaving for vacation
   , Controller "bedroom-drawer" bedroomDrawerController True
-  , Controller "bedroom-humidifier" humidifierController True
-  , Controller "ruuvi-controller" ruuviController True
+  , Controller "bedroom-humidifier" humidifierController False
+  , Controller "ruuvi-controller" ruuviController False
   ]
 
 -- | Steps the machine for every inbound message; service calls go to the