Update tests

test/BusSpec.hs

@@ -9,7 +9,7 @@ import Control.Concurrent.STM
   , writeTChan
   )
 import Data.Aeson (Value (..))
-import HomeAssistant.Controller (HASSEff (..), Service (..))
+import HomeAssistant.Controller (HASSEff (..), Service (..), Target(..))
 import HomeAssistant.Runtime.Bus
 import Test.Hspec
 
@@ -28,7 +28,7 @@ spec = describe "Bus" $ do
 
   it "channelHassEval writes CallService to the outbound channel" $ do
     bus <- newBus 0
-    let svc = Service "light" "turn_on" Nothing "light.bedroom_masse"
+    let svc = Service "light" "turn_on" Nothing [EntityId "light.bedroom_masse"]
     channelHassEval bus (CallService svc)
     atomically (readTChan (busOutbound bus)) `shouldReturn` svc