From d64d4a583b77974c860c4ab724c7339e1c93bb5e Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Tue, 5 Jun 2012 06:17:16 +0300
Subject: [PATCH] Do not allow project name test (fixes #356)

---
 yesod/Scaffolding/Scaffolder.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/yesod/Scaffolding/Scaffolder.hs b/yesod/Scaffolding/Scaffolder.hs
index a6d94f1d..995a9ba1 100644
--- a/yesod/Scaffolding/Scaffolder.hs
+++ b/yesod/Scaffolding/Scaffolder.hs
@@ -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"