Scaffolder: always use App as sitearg

yesod/Scaffolding/Scaffolder.hs

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

yesod/input/site-arg.cg

@@ -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: 

yesod/test/mysql-input.txt

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

yesod/test/postgresql-input.txt

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

yesod/test/sqlite-input.txt

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