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 }