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

Use a let binding for greater clarity

Browse Source
This commit is contained in:
Andrew 2015-06-30 18:30:24 -04:00
parent e327963912
commit e37ccee3d7
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
yesod-core/Yesod/Core/Class/Yesod.hs
View File

@ -633,10 +633,6 @@ formatLogMessage :: IO ZonedDate
-> IO LogStr -> IO LogStr
formatLogMessage getdate loc src level msg = do formatLogMessage getdate loc src level msg = do
now <- getdate now <- getdate
let sourceSuffix = if loc_package loc == "<unknown>" then "" else mempty
`mappend` " @("
`mappend` toLogStr (fileLocationToString loc)
`mappend` ")"
return $ mempty return $ mempty
`mappend` toLogStr now `mappend` toLogStr now
`mappend` " [" `mappend` " ["
@ -650,6 +646,11 @@ formatLogMessage getdate loc src level msg = do
`mappend` msg `mappend` msg
`mappend` sourceSuffix `mappend` sourceSuffix
`mappend` "\n" `mappend` "\n"
where
sourceSuffix = if loc_package loc == "<unknown>" then "" else mempty
`mappend` " @("
`mappend` toLogStr (fileLocationToString loc)
`mappend` ")"
-- | Customize the cookies used by the session backend. You may -- | Customize the cookies used by the session backend. You may
-- use this function on your definition of 'makeSessionBackend'. -- use this function on your definition of 'makeSessionBackend'.