From 931caaa2c01c4e3515f0d12f248ddc6bdfad5ccb Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 29 Apr 2015 13:29:40 +0300
Subject: [PATCH] Allow lowercasing of scaffolded values #982

---
 yesod-bin/Scaffolding/Scaffolder.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/yesod-bin/Scaffolding/Scaffolder.hs b/yesod-bin/Scaffolding/Scaffolder.hs
index 67d054b5..ec2d1da2 100644
--- a/yesod-bin/Scaffolding/Scaffolder.hs
+++ b/yesod-bin/Scaffolding/Scaffolder.hs
@@ -92,7 +92,9 @@ scaffold isBare = do
 
     let sink = unpackTemplate
                 (receiveFS $ if isBare then "." else fromString project)
-                (T.replace "PROJECTNAME" (T.pack project))
+                ( T.replace "PROJECTNAME" (T.pack project)
+                . T.replace "PROJECTNAME_LOWER" (T.toLower $ T.pack project)
+                )
     case ebackend of
         Left req -> withManager $ \m -> do
             res <- http req m