Store a custom snapshot of lights

src/HomeAssistant/Controller/Kitchen.hs

@@ -8,6 +8,7 @@ import Data.Aeson (Value)
 import Control.Arrow ((>>>), Arrow (..), returnA)
 import Prelude hiding (id)
 import Data.Time (LocalTime(..), TimeOfDay (..))
+import Data.Default (def)
 
 
 -- Kitchen has two "presence" sensors. One IKEA motion sensor and one SwitchBot presence sensor
@@ -31,7 +32,7 @@ kitchenCeilingController = proc x -> do
   ev <- eventLights -< p
   traceEvent -< ev
   case ev of
-       Event LightsOn | lightsAllowed now -> callServiceDyn (light [EntityId "light.kitchen_ceiling"]) -< On Nothing
+       Event LightsOn | lightsAllowed now -> callServiceDyn (light [EntityId "light.kitchen_ceiling"]) -< On def
        Event LightsOff -> callServiceDyn (light [EntityId "light.kitchen_ceiling"]) -< Off
        _ -> returnA -< ()
   where
@@ -73,7 +74,7 @@ dinnerTableController = proc x -> do
   case ev of
        Event LightsOn -> do
          sleep -< False
-         callServiceDyn (light [EntityId "light.kitchen_dining_large"]) -< On Nothing
+         callServiceDyn (light [EntityId "light.kitchen_dining_large"]) -< On def
        Event LightsOff -> do
          sleep -< False
          callServiceDyn (light [EntityId "light.kitchen_dining_large"]) -< Off