Store a custom snapshot of lights

src/HomeAssistant/Runtime.hs

@@ -43,6 +43,7 @@ import UnliftIO.Async
 import HomeAssistant.Runtime.Supervisor (supervised)
 import HomeAssistant.Controller.Hallway (hallwayLightsController)
 import qualified HttpServer
+import Data.Foldable (forM_)
 
 step :: (MonadIO m) => FilePath -> T.Text -> UUID -> Auto m a b -> a -> m (b, Auto m a b)
 step path name trace st a = do
@@ -128,6 +129,9 @@ dryRunHassEval ns bus = \case
   CallService req x -> runKatipT (busLogEnv bus) $ do
     callId <- liftIO $ generateCallId (busGen bus)
     logF (sl "traceId" (toText (requestTraceId req))) ns DebugS (ls $ show (callId, x))
+  CallServices req xs -> runKatipT (busLogEnv bus) $ forM_ xs $ \x -> do
+    callId <- liftIO $ generateCallId (busGen bus)
+    logF (sl "traceId" (toText (requestTraceId req))) ns DebugS (ls $ show (callId, x))
   Debug x -> runKatipT (busLogEnv bus) $ do
     logF () ns DebugS (ls $ show x)
   Trace req x -> runKatipT (busLogEnv bus) $ do