Works

src/HomeAssistant/Controller/Bedroom.hs

@@ -114,10 +114,10 @@ drawer = entityBool "binary_sensor.bedroom_nightstand_drawer_sensor_masse_contac
 
 bedroomDrawerController :: HASS (Event Value) ()
 bedroomDrawerController = proc x -> do
-  st <- drawer -< x
+  st <- drawer >>> traceEvent -< x
   case st of
        Event Open -> callService (switch [entity] True) -< ()
        Event Closed -> callService (switch [entity] False) -< ()
        _ -> returnA -< ()
   where
-    entity = EntityId "bedroom_drawer_light_masse"
+    entity = EntityId "switch.bedroom_drawer_light_masse"