6 lines
254 B
Plaintext
6 lines
254 B
Plaintext
connPart <- fmap concat $ (flip mapM) ["user", "password", "host", "port"] $ \key -> do
|
|
value <- lookupScalar key settings
|
|
return $ append (snoc (pack key) '=') (snoc value ' ')
|
|
return $ append connPart (append " dbname= " database)
|
|
|