Provide a swagger2 spec for the dynamic API

Related issue: #144
2016-06-18 10:18:43 +08:00
parent b916ed907b
commit cf4e157de7
7 changed files with 254 additions and 14 deletions
@@ -19,6 +19,7 @@ import qualified Hasql.Decoders                       as HD
 import qualified Hasql.Encoders                       as HE
 import qualified Hasql.Pool                           as P
 import           Network.Wai.Handler.Warp
+import           Network.BSD                          (getHostName)
 import           System.IO                            (BufferMode (..),
                                                       hSetBuffering, stderr,
                                                       stdin, stdout)
@@ -46,7 +47,9 @@ main = do
  hSetBuffering stdin  LineBuffering
  hSetBuffering stderr NoBuffering

-  conf <- readOptions
+  conf' <- readOptions
+  host  <- getHostName
+  conf  <- return conf' { configHost = host }
  let port = configPort conf
      pgSettings = cs (configDatabase conf)
      appSettings = setPort port