From c49e26d55615dd167c52b2c3fb392b53585f6288 Mon Sep 17 00:00:00 2001 From: Benjamin Summers Date: Fri, 13 Dec 2019 02:02:10 -0800 Subject: [PATCH] TODO HACK DONT COMMIT: Log to stderr --- pkg/king/lib/KingApp.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkg/king/lib/KingApp.hs b/pkg/king/lib/KingApp.hs index 06f2a21e9..9e5c3fd44 100644 --- a/pkg/king/lib/KingApp.hs +++ b/pkg/king/lib/KingApp.hs @@ -39,7 +39,7 @@ withLogFileHandle act = do runApp :: RIO App a -> IO a runApp inner = do withLogFileHandle $ \logFile -> do - logOptions <- logOptionsHandle logFile True + logOptions <- logOptionsHandle stderr True <&> setLogUseTime True <&> setLogUseLoc False @@ -78,7 +78,7 @@ instance HasNetworkConfig PierApp where runPierApp :: PierConfig -> NetworkConfig -> RIO PierApp a -> IO a runPierApp pierConfig networkConfig inner = do withLogFileHandle $ \logFile -> do - logOptions <- logOptionsHandle logFile True + logOptions <- logOptionsHandle stderr True <&> setLogUseTime True <&> setLogUseLoc False