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

Do not allow project name test (fixes #356)

Browse Source
This commit is contained in:
Michael Snoyman 2012-06-05 06:17:16 +03:00
parent e99a852cfb
commit d64d4a583b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod/Scaffolding/Scaffolder.hs
View File

@ -47,7 +47,7 @@ scaffold = do
| '0' <= c && c <= '9' = True | '0' <= c && c <= '9' = True
validPN '-' = True validPN '-' = True
validPN _ = False validPN _ = False
project <- prompt $ \s -> all validPN s && not (null s) project <- prompt $ \s -> all validPN s && not (null s) && s /= "test"
let dir = project let dir = project
let sitearg = "App" let sitearg = "App"