From 3b08988e3036d1e8952e9046e1d665579f9b4f0d Mon Sep 17 00:00:00 2001 From: Mats Rauhala Date: Fri, 25 Sep 2026 13:02:14 +0300 Subject: [PATCH] Route Flags load warnings to stderr --- src/HomeAssistant/Runtime/Flags.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/HomeAssistant/Runtime/Flags.hs b/src/HomeAssistant/Runtime/Flags.hs index 876a3a9..c594e9e 100644 --- a/src/HomeAssistant/Runtime/Flags.hs +++ b/src/HomeAssistant/Runtime/Flags.hs @@ -24,6 +24,7 @@ import Data.Set (Set) import qualified Data.Set as S import Data.Text (Text) import System.FilePath (()) +import System.IO (hPutStrLn, stderr) import System.IO.Error (isDoesNotExistError) type Name = Text @@ -56,7 +57,7 @@ readFlagsFile path = decoded <- decodeFileStrict' path case decoded of Nothing -> do - putStrLn ("handlers.json is unparseable; treating all handlers as enabled: " <> path) + hPutStrLn stderr ("handlers.json is unparseable; treating all handlers as enabled: " <> path) pure mempty Just m -> pure (maybe mempty id m) where @@ -64,7 +65,7 @@ readFlagsFile path = onMissingOrUnreadable e | isDoesNotExistError e = pure mempty | otherwise = do - putStrLn ("could not read handlers.json (" <> show e <> "); treating all handlers as enabled") + hPutStrLn stderr ("could not read handlers.json (" <> show e <> "); treating all handlers as enabled") pure mempty isEnabled :: MonadIO m => Flags -> Name -> m Bool