From 8ea013c94a40cf14bfb1796fbb4dd8cac7a0aff3 Mon Sep 17 00:00:00 2001
From: Mats Rauhala <mats.rauhala@iki.fi>
Date: Fri, 21 Aug 2026 15:46:18 +0300
Subject: [PATCH] Fix debug ordering

---
 src/HomeAssistant/Runtime.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/HomeAssistant/Runtime.hs b/src/HomeAssistant/Runtime.hs
index 80fe454..743633b 100644
--- a/src/HomeAssistant/Runtime.hs
+++ b/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"