Fix debug ordering

src/HomeAssistant/Runtime.hs

@@ -64,7 +64,7 @@ runController bus (Controller name machine _enabled) = do
 
 defaultMain :: IO ()
 defaultMain = withSocketsDo $ do
-  severity <- maybe DebugS (const InfoS) <$> lookupEnv "HA_DEBUG"
+  severity <- maybe InfoS (const DebugS) <$> lookupEnv "HA_DEBUG"
   withBus severity $ \bus -> do
     token <- getEnv "HA_TOKEN"
     host <- getEnv "HA_HOST"