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

Minor indentation cleanup

Browse Source
This commit is contained in:
Michael Snoyman 2014-11-21 08:22:17 +02:00
parent 213dcbd985
commit 5d771e49bb
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
yesod/Yesod/Default/Config2.hs
View File

@ -129,11 +129,11 @@ loadAppSettings runTimeFiles compileValues envUsage = do
Just ne -> return $ getMergedValue $ sconcat ne Just ne -> return $ getMergedValue $ sconcat ne
value <- value <-
case envUsage of case envUsage of
IgnoreEnv -> return $ applyEnv False mempty value' IgnoreEnv -> return $ applyEnv False mempty value'
UseEnv -> applyCurrentEnv False value' UseEnv -> applyCurrentEnv False value'
RequireEnv -> applyCurrentEnv True value' RequireEnv -> applyCurrentEnv True value'
UseCustomEnv env -> return $ applyEnv False env value' UseCustomEnv env -> return $ applyEnv False env value'
RequireCustomEnv env -> return $ applyEnv True env value' RequireCustomEnv env -> return $ applyEnv True env value'
case fromJSON value of case fromJSON value of
Error s -> error $ "Could not convert to AppSettings: " ++ s Error s -> error $ "Could not convert to AppSettings: " ++ s