From 0b29b081e213a27484b10d0f2c5a9be0868324b9 Mon Sep 17 00:00:00 2001
From: Mats Rauhala <mats.rauhala@iki.fi>
Date: Thu, 20 Aug 2026 23:51:35 +0300
Subject: [PATCH] Ikea buttons

---
 src/HomeAssistant/Controller/Bedroom.hs | 3 +--
 src/HomeAssistant/Runtime.hs            | 1 +
 src/HomeAssistant/Runtime/Bus.hs        | 1 +
 3 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/HomeAssistant/Controller/Bedroom.hs b/src/HomeAssistant/Controller/Bedroom.hs
index 8850bdb..f38bc66 100644
--- a/src/HomeAssistant/Controller/Bedroom.hs
+++ b/src/HomeAssistant/Controller/Bedroom.hs
@@ -6,10 +6,9 @@ import HomeAssistant.Controller
 import qualified Data.Text as T
 import AFRP (Event (..), (>>|), toEvent, lMerge)
 import Data.Aeson (Value, object, (.=))
-import Control.Arrow ((>>>), returnA, arr, ArrowChoice (..), Arrow (..))
+import Control.Arrow ((>>>), returnA, arr, Arrow (..))
 import Control.Lens ((^?), to, traversed)
 import Data.Aeson.Lens (key, _String)
-import qualified Data.Text.Lens as TL
 
 
 
diff --git a/src/HomeAssistant/Runtime.hs b/src/HomeAssistant/Runtime.hs
index 5cecfc3..8779381 100644
--- a/src/HomeAssistant/Runtime.hs
+++ b/src/HomeAssistant/Runtime.hs
@@ -72,3 +72,4 @@ dryRunHassEval gen = \case
   CallService x -> do
     callId <- generateCallId gen
     print (callId, x)
+  Debug x -> print x
diff --git a/src/HomeAssistant/Runtime/Bus.hs b/src/HomeAssistant/Runtime/Bus.hs
index 46cf9e3..16ff07b 100644
--- a/src/HomeAssistant/Runtime/Bus.hs
+++ b/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 }