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

fix scaffolding for tiny backend

Browse Source
This commit is contained in:
Greg Weber 2011-08-02 21:53:35 -07:00
parent a39b78b641
commit 4a951ad39d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
yesod/scaffold.hs
View File

@ -110,7 +110,6 @@ scaffold = do
Postgresql -> $(codegen $ "postgresqlConnPool") Postgresql -> $(codegen $ "postgresqlConnPool")
MongoDB -> $(codegen $ "mongoDBConnPool") MongoDB -> $(codegen $ "mongoDBConnPool")
Tiny -> "" Tiny -> ""
_ -> error $ "Invalid backend: " ++ backendLower
packages = if backend == MongoDB then " , mongoDB\n , bson\n" else "" packages = if backend == MongoDB then " , mongoDB\n , bson\n" else ""
@ -140,7 +139,7 @@ scaffold = do
Sqlite -> writeFile' ("config/" ++ backendLower ++ ".yml") $(codegen ("config/sqlite.yml")) Sqlite -> writeFile' ("config/" ++ backendLower ++ ".yml") $(codegen ("config/sqlite.yml"))
Postgresql -> writeFile' ("config/" ++ backendLower ++ ".yml") $(codegen ("config/postgresql.yml")) Postgresql -> writeFile' ("config/" ++ backendLower ++ ".yml") $(codegen ("config/postgresql.yml"))
MongoDB -> writeFile' ("config/" ++ backendLower ++ ".yml") $(codegen ("config/mongoDB.yml")) MongoDB -> writeFile' ("config/" ++ backendLower ++ ".yml") $(codegen ("config/mongoDB.yml"))
_ -> error $ "Invalid backend: " ++ backendLower Tiny -> return ()
let isTiny = backend == Tiny let isTiny = backend == Tiny
ifTiny a b = if isTiny then a else b ifTiny a b = if isTiny then a else b