fix environment capitalize function

This commit is contained in:
Greg Weber 2013-11-05 14:26:46 -08:00
parent 30dac8fbb6
commit b86f809a10

View File

@ -70,7 +70,7 @@ parseArgConfig = do
getPort front (arg:rest) = getPort (front . (arg:)) rest
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
-- @ConfigSettings.