Fix debug ordering

This commit is contained in:
2026-08-21 15:46:18 +03:00
parent c60508fd0c
commit 8ea013c94a
+1 -1
View File
@@ -64,7 +64,7 @@ runController bus (Controller name machine _enabled) = do
defaultMain :: IO () defaultMain :: IO ()
defaultMain = withSocketsDo $ do defaultMain = withSocketsDo $ do
severity <- maybe DebugS (const InfoS) <$> lookupEnv "HA_DEBUG" severity <- maybe InfoS (const DebugS) <$> lookupEnv "HA_DEBUG"
withBus severity $ \bus -> do withBus severity $ \bus -> do
token <- getEnv "HA_TOKEN" token <- getEnv "HA_TOKEN"
host <- getEnv "HA_HOST" host <- getEnv "HA_HOST"