Tracing

src/HomeAssistant/Controller/Bedroom.hs

@@ -56,6 +56,7 @@ data IkeaQuickButton
   | ShortClickOff
   | DoubleClickOff
   | LongClickOff
+  deriving Show
 
 
 toIkeaQuickButton :: T.Text -> Maybe IkeaQuickButton
@@ -74,25 +75,26 @@ ikeaQuickButton entityId =
   >>| arr (maybe (Left ()) Right . eventType)
   >>> toEvent
   where
-    eventType v = v ^? key "event" . key "data" . key "new_state" . key "state" . _String . to toIkeaQuickButton . traversed
+    eventType v = v ^? key "event" . key "data" . key "new_state" . key "attributes" . key "event_type" . _String . to toIkeaQuickButton . traversed
 
 
 data BedroomControls
   = Masse IkeaQuickButton
   | Enishen IkeaQuickButton
+  deriving Show
 
 
 bedroomButton :: HASS (Event Value) (Event BedroomControls)
 bedroomButton = (masseButton &&& enishenButton) >>> arr (uncurry lMerge)
   where
     masseButton = fmap Masse <$> ikeaQuickButton "event.bedroom_quick_remote_masse_action"
-    enishenButton = fmap Enishen <$> ikeaQuickButton "event.bedroom_quick_remote_jemina_action"
+    enishenButton = fmap Enishen <$> ikeaQuickButton "event.bedroom_quick_jemina_action"
 
 bedroomButtonController :: HASS (Event Value) ()
 bedroomButtonController = proc x -> do
-  ev <- bedroomButton -< x
+  ev <- bedroomButton >>> traceEvent -< x
   case ev of
-       Event (Masse ShortClickOn) -> callService (activateScene "scene.makuuhuone_masse") -< ()
+       Event (Masse ShortClickOn) -> callService (activateScene "scene.makuuhuone_masse") -< () -- this should be on release
        Event (Masse DoubleClickOn) -> callService (activateScene "scene.makuuhuone_keski") -< ()
        Event (Masse LongClickOn) -> callService (activateScene "scene.makuuhuone_kirkas") -< ()
        Event (Enishen ShortClickOn) -> callService (activateScene "scene.makuuhuone_jemina") -< ()
@@ -114,4 +116,4 @@ bedroomDrawerController = proc x -> do
        Event Closed -> callService (switch [entity] False) -< ()
        _ -> returnA -< ()
   where
-    entity = "switch.bedroom_drawer_light_masse"
+    entity = "bedroom_drawer_light_masse"