6 lines
251 B
Plaintext
6 lines
251 B
Plaintext
user <- lookupScalar "user"
|
|
password <- lookupScalar "user"
|
|
host <- lookupScalar "host"
|
|
port <- lookupScalar "port"
|
|
return $ "user=" ++ user ++ "password=" ++ password ++ "host=" ++ host ++ "port=" ++ port ++ "dbname= ++ database"
|