Unify per-room Lights enums into shared LightingMode

src/HomeAssistant/Controller/Hallway.hs

@@ -2,7 +2,8 @@
 {-# LANGUAGE Arrows #-}
 module HomeAssistant.Controller.Hallway where
 
-import HomeAssistant.Controller (Presence (..), HASS, motion, motionToPresence, traceEvent, callServiceDyn, light, Target (..), LightCommand (..))
+import HomeAssistant.Controller (Presence, HASS, motion, motionToPresence, traceEvent, callServiceDyn, light, Target (..), LightCommand (..))
+import HomeAssistant.Controller.Light.Mode (LightingMode (..), lightingModeEvents)
 import AFRP (Event (..))
 import qualified AFRP
 import Data.Aeson (Value)
@@ -15,25 +16,16 @@ import Data.Default (def)
 hallwayPresence :: HASS (Event Value) Presence
 hallwayPresence = motion "binary_sensor.hallway_movement_occupancy" >>> motionToPresence 500
 
-data Lights = LightsOn | LightsOff
-  deriving (Show)
-
-eventLights :: HASS Presence (Event Lights)
-eventLights = AFRP.changes >>> arr (fmap presenceLights)
-  where
-    presenceLights Occupied = LightsOn
-    presenceLights Unoccupied = LightsOff
-
 hallwayLightsController :: HASS (Event Value) ()
 hallwayLightsController = proc x -> do
   now <- AFRP.currentTime -< ()
   p <- hallwayPresence -< x
-  ev <- eventLights -< p
+  ev <- lightingModeEvents -< p
   traceEvent -< ev
   case ev of
        -- The lights entity is a "group of lights" in hass
-       Event LightsOn | lightsAllowed now -> callServiceDyn (light [EntityId "light.hallway_lights"]) -< On def
-       Event LightsOff -> callServiceDyn (light [EntityId "light.hallway_lights"]) -< Off
+       Event LightingOn | lightsAllowed now -> callServiceDyn (light [EntityId "light.hallway_lights"]) -< On def
+       Event LightingOff -> callServiceDyn (light [EntityId "light.hallway_lights"]) -< Off
        _ -> returnA -< ()
   where
     lightsAllowed (LocalTime _ tod) = not (tod > TimeOfDay 1 45 0 && tod < TimeOfDay 5 0 0)