Moves minimum pg version to config, eliminates magic constant from main and improves docs.

This commit is contained in:
Diogo Biazus
2015-10-06 20:27:54 -04:00
parent f186d6bb33
commit adfd980a60
2 changed files with 10 additions and 3 deletions
+3 -2
View File
@@ -26,12 +26,13 @@ import System.IO (BufferMode (..),
import PostgREST.Config (AppConfig (..),
prettyVersion,
readOptions)
readOptions,
minimumPgVersion)
isServerVersionSupported :: H.Session P.Postgres IO Bool
isServerVersionSupported = do
Identity (row :: Text) <- H.tx Nothing $ H.singleEx $ [H.stmt|SHOW server_version_num|]
return $ read (cs row) >= (90200::Integer)
return $ read (cs row) >= minimumPgVersion
main :: IO ()
main = do