Ikea buttons

src/HomeAssistant/Runtime/Bus.hs

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