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 ())