jimmy/postgrest
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

don't just get the default host for every connect option.

Browse Source
This commit is contained in:
Adam C. Baker
2014-07-06 20:12:23 -07:00
parent 91efcba6e9
commit 53d90987ff
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Main.hs
+2 -2
View File
@@ -53,8 +53,8 @@ connInfo config = defaultConnectInfo {
} }
where where
opts = parseDatabaseUrl $ configDb config opts = parseDatabaseUrl $ configDb config
fromOpt key = maybe (connectHost defaultConnectInfo) unpack $ lookup key opts fromOpt (fn, key) = maybe (fn defaultConnectInfo) unpack $ lookup key opts
[host, user, pass, db] = map fromOpt ["host", "user", "password", "dbname"] [host, user, pass, db] = map fromOpt [(connectHost, "host"), (connectUser, "user"), (connectPassword, "password"), (connectDatabase, "dbname")]
app :: AppConfig -> Application app :: AppConfig -> Application
app config req respond = app config req respond =