From 46ebf76c011cf944b3630737c986dc562f994b2c Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Sun, 17 Apr 2011 06:51:12 +0300
Subject: [PATCH] Main is not a valid foundation datatype name

---
 scaffold.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scaffold.hs b/scaffold.hs
index c89098dd..1bf4b627 100644
--- a/scaffold.hs
+++ b/scaffold.hs
@@ -53,7 +53,7 @@ main = do
     putStr $(codegen "site-arg")
     hFlush stdout
     let isUpperAZ c = 'A' <= c && c <= 'Z'
-    sitearg <- prompt $ \s -> not (null s) && all validPN s && isUpperAZ (head s)
+    sitearg <- prompt $ \s -> not (null s) && all validPN s && isUpperAZ (head s) && s /= "Main"
 
     putStr $(codegen "database")
     hFlush stdout