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

Merge branch 'master' of github.com:bjornbm/yesod

Browse Source
This commit is contained in:
Björn Buckwalter 2011-09-10 23:12:21 +08:00
commit 02cf8a514d
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod/Scaffolding/Scaffolder.hs
View File

@ -98,7 +98,11 @@ scaffold = do
Postgresql -> "import Data.Text (Text, pack, concat)\nimport Prelude hiding (concat)" Postgresql -> "import Data.Text (Text, pack, concat)\nimport Prelude hiding (concat)"
_ -> "import Data.Text (Text, pack)" _ -> "import Data.Text (Text, pack)"
packages = if backend == MongoDB then ", mongoDB >= 1.1\n , bson >= 0.1.5\n" else "" packages =
if backend == MongoDB
then " , persistent-mongoDB >= 0.6.1 && < 0.7\n , mongoDB >= 1.1\n , bson >= 0.1.5\n"
else " , persistent-" ++ backendLower ++ " >= 0.6 && < 0.7"
let fst3 (x, _, _) = x let fst3 (x, _, _) = x
year <- show . fst3 . toGregorian . utctDay <$> getCurrentTime year <- show . fst3 . toGregorian . utctDay <$> getCurrentTime