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

Scaffolder: always use App as sitearg

Browse Source
This commit is contained in:
Michael Snoyman 2012-04-02 17:24:39 +03:00
parent 396644081c
commit fa1a03d420
5 changed files with 1 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod/Scaffolding/Scaffolder.hs
View File

@ -51,9 +51,7 @@ scaffold = do
project <- prompt $ \s -> all validPN s && not (null s) project <- prompt $ \s -> all validPN s && not (null s)
let dir = project let dir = project
puts $(codegenDir "input" "site-arg") let sitearg = "App"
let isUpperAZ c = 'A' <= c && c <= 'Z'
sitearg <- prompt $ \s -> not (null s) && all validPN s && isUpperAZ (head s) && s /= "Main"
puts $(codegenDir "input" "database") puts $(codegenDir "input" "database")

5
yesod/input/site-arg.cg
View File

@ -1,5 +0,0 @@
Great, we'll be creating ~project~ today, and placing it in ~dir~.
What's going to be the name of your foundation datatype? This name must
start with a capital letter.
Foundation:

1
yesod/test/mysql-input.txt
View File

@ -1,4 +1,3 @@
Michael Michael
foobar foobar
Foobar
mysql mysql

1
yesod/test/postgresql-input.txt
View File

@ -1,4 +1,3 @@
Michael Michael
foobar foobar
Foobar
p p

1
yesod/test/sqlite-input.txt
View File

@ -1,4 +1,3 @@
Michael Michael
foobar foobar
Foobar
s s