Runtimes and controllers

src/HomeAssistant/Runtime/Bus.hs

@@ -42,7 +42,6 @@ newBus start = Bus
 channelHassEval :: Bus -> HASSEff a -> IO a
 channelHassEval bus = \case
   CallService svc -> atomically $ writeTChan (busOutbound bus) svc
-  Pure a          -> pure a
 
 newtype CallIdGen = CallIdGen { generateCallId :: IO Int }
 

src/HomeAssistant/Runtime/Connection.hs

@@ -98,4 +98,4 @@ encodeService callId Service{..} = object $
   , "domain"  .= serviceDomain
   , "service" .= serviceName
   , "target"  .= object ["entity_id" .= serviceTarget]
-  ] <> maybe [] (\d -> ["service_data" .= d]) serviceData
+  ] <> maybe [] (\d -> ["data" .= d]) serviceData