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

Main is not a valid foundation datatype name

Browse Source
This commit is contained in:
Michael Snoyman 2011-04-17 06:51:12 +03:00
parent 254795cb40
commit 46ebf76c01
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scaffold.hs
View File

@ -53,7 +53,7 @@ main = do
putStr $(codegen "site-arg") putStr $(codegen "site-arg")
hFlush stdout hFlush stdout
let isUpperAZ c = 'A' <= c && c <= 'Z' 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") putStr $(codegen "database")
hFlush stdout hFlush stdout