Ability to set addresses to listen on

Fixes #461
2016-06-18 10:46:02 +08:00
parent c1764c4976
commit e571cb9fcb
4 changed files with 16 additions and 4 deletions
@@ -13,6 +13,7 @@ import           PostgREST.DbStructure
 import           Control.Monad
 import           Data.Monoid                          ((<>))
 import           Data.String.Conversions              (cs)
+import           Data.String                          (IsString (..))
 import qualified Hasql.Query                          as H
 import qualified Hasql.Session                        as H
 import qualified Hasql.Decoders                       as HD
@@ -47,9 +48,11 @@ main = do
  hSetBuffering stderr NoBuffering

  conf <- readOptions
-  let port = configPort conf
+  let host = configHost conf
+      port = configPort conf
      pgSettings = cs (configDatabase conf)
-      appSettings = setPort port
+      appSettings = setHost (fromString host)
+                  . setPort port
                  . setServerName (cs $ "postgrest/" <> prettyVersion)
                  $ defaultSettings