user <- lookupScalar "user"
    password <- lookupScalar "user"
    host <- lookupScalar "host"
    port <- lookupScalar "port"
    return $ "user=" ++ user ++ "password=" ++ password ++ "host=" ++ host ++ "port=" ++ port ++ "dbname= ++ database"