haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix PostgreSQL scaffolding

Browse Source
This commit is contained in:
Michael Snoyman 2011-08-04 07:02:58 +03:00
parent 275ec19d69
commit 91c9b4a2f0
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod/scaffold.hs
View File

@ -111,6 +111,10 @@ scaffold = do
MongoDB -> $(codegen $ "mongoDBConnPool") MongoDB -> $(codegen $ "mongoDBConnPool")
Tiny -> "" Tiny -> ""
textImport = case backend of
Postgresql -> ", concat, append, snoc, pack"
_ -> ""
packages = if backend == MongoDB then " , mongoDB\n , bson\n" else "" packages = if backend == MongoDB then " , mongoDB\n , bson\n" else ""
let fst3 (x, _, _) = x let fst3 (x, _, _) = x

2
yesod/scaffold/config/Settings.hs.cg
View File

@ -32,7 +32,7 @@ import Yesod (liftIO, MonadControlIO, addWidget, addCassius, addJulius, addLuciu
import Data.Monoid (mempty, mappend) import Data.Monoid (mempty, mappend)
import System.Directory (doesFileExist) import System.Directory (doesFileExist)
import Prelude hiding (concat) import Prelude hiding (concat)
import Data.Text (Text) import Data.Text (Text~textImport~)
import Data.Object import Data.Object
import qualified Data.Object.Yaml as YAML import qualified Data.Object.Yaml as YAML
import Control.Monad (join) import Control.Monad (join)