Reads better

src/HomeAssistant/Controller/Bedroom.hs

@@ -98,7 +98,7 @@ data BedroomControls
 
 bedroomButton :: HASS (Event Value) (Event BedroomControls)
 bedroomButton = (masseButton &&& enishenButton &&& centralButton)
-  >>> arr (\(a,(b,c)) -> a `lMerge` b `lMerge` c)
+  >>> arr (\(a,(b,c)) -> a <> b <> c)
   where
     masseButton = fmap Masse <$> ikeaQuickButton "event.bedroom_quick_remote_masse_action"
     enishenButton = fmap Enishen <$> ikeaQuickButton "event.bedroom_quick_jemina_action"