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

fix environment capitalize function

Browse Source
This commit is contained in:
Greg Weber 2013-11-05 14:26:46 -08:00
parent 30dac8fbb6
commit b86f809a10
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod/Yesod/Default/Config.hs
View File

@ -70,7 +70,7 @@ parseArgConfig = do
getPort front (arg:rest) = getPort (front . (arg:)) rest getPort front (arg:rest) = getPort (front . (arg:)) rest
capitalize [] = [] capitalize [] = []
capitalize (x:xs) = toUpper x : map toLower xs capitalize (x:xs) = toUpper x : xs
-- | Load the app config from command line parameters, using the given -- | Load the app config from command line parameters, using the given
-- @ConfigSettings. -- @ConfigSettings.