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

Allow lowercasing of scaffolded values #982

Browse Source
This commit is contained in:
Michael Snoyman 2015-04-29 13:29:40 +03:00
parent fa0fbb4569
commit 931caaa2c0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod-bin/Scaffolding/Scaffolder.hs
View File

@ -92,7 +92,9 @@ scaffold isBare = do
let sink = unpackTemplate let sink = unpackTemplate
(receiveFS $ if isBare then "." else fromString project) (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 case ebackend of
Left req -> withManager $ \m -> do Left req -> withManager $ \m -> do
res <- http req m res <- http req m