Tracing

src/HomeAssistant/Runtime/Bus.hs

@@ -43,6 +43,7 @@ channelHassEval :: Bus -> HASSEff a -> IO a
 channelHassEval bus = \case
   CallService svc -> atomically $ writeTChan (busOutbound bus) svc
   Debug x -> print x
+  Trace req x -> print (req, x)
 
 newtype CallIdGen = CallIdGen { generateCallId :: IO Int }