Fix debug ordering
This commit is contained in:
@@ -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"
|
||||||
|
|||||||
Reference in New Issue
Block a user