|
@@ -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
|