yesod/pconn1.cg at d84c256750f4a06615015ce9a02b1fe1e4ab8fa6 - yesod - Gitea: Git with a cup of tea

haskell/yesod

Michael Snoyman a7df7531dc Add 'yesod/' from commit '45bbb0fc93db341ecac1406234fe0e880d63ed12'

git-subtree-dir: yesod
git-subtree-mainline: d865dc20a1
git-subtree-split: 45bbb0fc93

2011-07-22 08:59:52 +03:00

6 lines

254 B

Plaintext

Raw Blame History

     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)