MasseR/home-assistant-controller
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Code organization

Browse Source
This commit is contained in:
MasseR
2026-08-20 22:38:21 +03:00
parent 18e1d68a4f
commit 2a1bca73d7
4 changed files with 53 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/HomeAssistant/Runtime.hs
+2 -1
View File
@@ -20,12 +20,13 @@ import Data.Aeson (Value)
import qualified Data.Text as T
import Data.Time (getCurrentTime)
import Data.Void (Void, absurd)
import HomeAssistant.Controller (HASS, HASSEff (..), bedroomPresenceController)
import HomeAssistant.Controller (HASS, HASSEff (..))
import HomeAssistant.Runtime.Bus
import HomeAssistant.Runtime.Connection (readerAction, writerAction)
import HomeAssistant.Runtime.Supervisor (defaultBackoff, supervised)
import Network.Socket (withSocketsDo)
import System.Environment (getEnv)
import HomeAssistant.Controller.Bedroom (bedroomPresenceController)
step :: (forall x. eff x -> IO x) -> Mealy eff a b -> a -> IO (b, Mealy eff a b)
step nt (Mealy f) a = do