Ikea buttons

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
 
 
 

src/HomeAssistant/Runtime.hs

@@ -72,3 +72,4 @@ dryRunHassEval gen = \case
   CallService x -> do
     callId <- generateCallId gen
     print (callId, x)
+  Debug x -> print x

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 }