Support for areas

src/HomeAssistant/Runtime/Connection.hs

@@ -24,7 +24,7 @@ import Data.Aeson.Lens (key, _String)
 import qualified Data.ByteString.Lazy as BL
 import qualified Data.Text as T
 import Data.Void (Void)
-import HomeAssistant.Controller (Service (..))
+import HomeAssistant.Controller (Service (..), Target (..))
 import HomeAssistant.Runtime.Bus
 import HomeAssistant.Runtime.Supervisor (Fatal (..))
 import qualified Network.WebSockets as WS
@@ -97,5 +97,6 @@ encodeService callId Service{..} = object $
   , "type"    .= ("call_service" :: T.Text)
   , "domain"  .= serviceDomain
   , "service" .= serviceName
-  , "target"  .= object ["entity_id" .= serviceTarget]
+  , "target"  .= object [ "entity_id" .= [e | EntityId e <- serviceTarget]
+                        , "area_id" .= [a | AreaId a <- serviceTarget]]
   ] <> maybe [] (\d -> ["data" .= d]) serviceData