TODO HACK DONT COMMIT: Log to stderr

This commit is contained in:
Benjamin Summers 2019-12-13 02:02:10 -08:00
parent acdd9b82f5
commit c49e26d556

View File

@ -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