Fix #905, intermittent empty replies

This commit is contained in:
steve-chavez
2018-08-09 08:59:19 -05:00
committed by Steve Chávez
parent 56bd5d5f91
commit 93f10adb3c
2 changed files with 3 additions and 4 deletions
+2 -4
View File
@@ -33,8 +33,7 @@ import qualified Hasql.Pool as P
import qualified Hasql.Session as H
import Network.Wai.Handler.Warp (defaultSettings,
runSettings, setHost,
setPort, setServerName,
setTimeout)
setPort, setServerName)
import System.IO (BufferMode (..),
hSetBuffering)
@@ -152,8 +151,7 @@ main = do
appSettings =
setHost ((fromString . toS) host) -- Warp settings
. setPort port
. setServerName (toS $ "postgrest/" <> prettyVersion)
. setTimeout 3600 $
. setServerName (toS $ "postgrest/" <> prettyVersion) $
defaultSettings
-- Checks that the provided proxy uri is formated correctly