Enable log capture if stdout is not a terminal

This commit is contained in:
MattK
2015-07-24 12:14:18 -04:00
parent e1d7dc3dea
commit 8eae978eae
+6
View File
@@ -24,6 +24,8 @@ import qualified Hasql as H
import qualified Hasql.Postgres as P
import Options.Applicative hiding (columns)
import System.IO (stderr, stdin, stdout, hSetBuffering, BufferMode(..))
import PostgREST.Config (AppConfig(..), argParser, corsPolicy)
isServerVersionSupported = do
@@ -32,6 +34,10 @@ isServerVersionSupported = do
main :: IO ()
main = do
hSetBuffering stdout LineBuffering
hSetBuffering stdin LineBuffering
hSetBuffering stderr NoBuffering
let opts = info (helper <*> argParser) $
fullDesc
<> progDesc (