Add Runtime.Bus with channel-based effect interpreter

src/HomeAssistant/Runtime.hs

@@ -16,6 +16,7 @@ module HomeAssistant.Runtime
 
 import AFRP (Mealy(..), Event(..))
 import HomeAssistant.Controller (HASSEff(..), lightController, Service(..))
+import HomeAssistant.Runtime.Bus (CallIdGen(..), mkCallIdGen)
 import Data.Aeson ((.=), Value (Null), encode, eitherDecode, object)
 import qualified Data.ByteString.Lazy as BL
 import qualified Data.Text as T
@@ -23,7 +24,6 @@ import qualified Network.WebSockets as WS
 import Network.Socket (withSocketsDo)
 import System.Environment (getEnv)
 import Data.Time (getCurrentTime)
-import Data.IORef (newIORef, atomicModifyIORef')
 
 step :: (forall x. eff x -> IO x) -> Mealy eff a b -> a -> IO (b, Mealy eff a b)
 step nt (Mealy f) a = do
@@ -102,13 +102,6 @@ wsCallService conn requestId domain service entityId =
         ]
     ]
 
-newtype CallIdGen = CallIdGen { generateCallId :: IO Int  }
-
-mkCallIdGen :: Int -> IO CallIdGen
-mkCallIdGen start = do
-  gen <- newIORef start
-  pure $ CallIdGen $ atomicModifyIORef' gen (\old -> let new = old + 1 in new `seq` (new, new))
-
 hassEval :: CallIdGen -> WS.Connection -> HASSEff a -> IO a
 hassEval gen conn = \case
   CallService x -> do