Browse Source

* ah… stupid PG connection string

Saurabh Nanda 9 năm trước cách đây
mục cha
commit
f042823247

+ 1 - 1
frameworks/Haskell/yesod-postgres/bench/src/Main.hs

@@ -304,7 +304,7 @@ getPlaintextR = return "Hello, World!"
 main :: IO ()
 main :: IO ()
 main = R.withSystemRandom $ \gen -> do
 main = R.withSystemRandom $ \gen -> do
     [cores, host] <- getArgs
     [cores, host] <- getArgs
-    let connString = ("host=" ++ host ++ "port=5432 user=benchmarkdbuser password=benchmarkdbpass dbname=hello_world") 
+    let connString = ("host=" ++ host ++ " port=5432 user=benchmarkdbuser password=benchmarkdbpass dbname=hello_world") 
     dbPool <- runNoLoggingT $ Pg.createPostgresqlPool (C8.pack connString) 256
     dbPool <- runNoLoggingT $ Pg.createPostgresqlPool (C8.pack connString) 256
     app <- toWaiAppPlain App
     app <- toWaiAppPlain App
         { appGen = gen
         { appGen = gen