Read settings from config file (#714)

This commit is contained in:
Joe Nelson
2016-10-20 08:34:57 -07:00
committed by GitHub
parent 74e68408e6
commit 9233d90075
6 changed files with 121 additions and 46 deletions
+6
View File
@@ -8,12 +8,14 @@ import PostgREST.Config (AppConfig (..),
minimumPgVersion,
prettyVersion,
readOptions)
import PostgREST.Error (prettyUsageError)
import PostgREST.OpenAPI (isMalformedProxyUri)
import PostgREST.DbStructure
import Control.AutoUpdate
import Data.String (IsString (..))
import Data.Text (stripPrefix)
import Data.Text.IO (hPutStrLn)
import Data.Function (id)
import Data.Time.Clock.POSIX (getPOSIXTime)
import qualified Hasql.Query as H
@@ -68,6 +70,10 @@ main = do
<> show minimumPgVersion)
getDbStructure (toS $ configSchema conf)
forM_ (lefts [result]) $ \e -> do
hPutStrLn stderr (prettyUsageError e)
exitFailure
refDbStructure <- newIORef $ either (panic . show) id result
#ifndef mingw32_HOST_OS