Do not allow project name test (fixes #356)

This commit is contained in:
Michael Snoyman 2012-06-05 06:17:16 +03:00
parent e99a852cfb
commit d64d4a583b

View File

@ -47,7 +47,7 @@ scaffold = do
| '0' <= c && c <= '9' = True
validPN '-' = True
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 sitearg = "App"