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

fix scaffold: writeLogMsg -> logMsg

Browse Source
This commit is contained in:
Greg Weber 2011-12-25 14:11:55 -03:00
parent dcd3042df1
commit 9206d60481
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
yesod/scaffold/Foundation.hs.cg
View File

@ -23,7 +23,7 @@ import Yesod.Auth
import Yesod.Auth.OpenId
import Yesod.Default.Config
import Yesod.Default.Util (addStaticContentExternal)
import Yesod.Logger (Logger, writeLogMsg, formatLogText, logLazyText)
import Yesod.Logger (Logger, logMsg, formatLogText, logLazyText)
import qualified Settings
import qualified Data.ByteString.Lazy as L
import qualified Database.Persist.Base
@ -108,7 +108,7 @@ instance Yesod ~sitearg~ where
authRoute _ = Just $ AuthR LoginR
messageLogger y loc level msg =
formatLogText (getLogger y) loc level msg >>= writeLogMsg (getLogger y)
formatLogText (getLogger y) loc level msg >>= logMsg (getLogger y)
-- This function creates static content files in the static folder
-- and names them based on a hash of their content. This allows

4
yesod/scaffold/tiny/Foundation.hs.cg
View File

@ -18,7 +18,7 @@ import Yesod.Default.Config
import Yesod.Default.Util (addStaticContentExternal)
import Yesod.Static (Static, base64md5, StaticRoute(..))
import Settings.StaticFiles
import Yesod.Logger (Logger, writeLogMsg, formatLogText, logLazyText)
import Yesod.Logger (Logger, logMsg, formatLogText, logLazyText)
import qualified Settings
import Settings (widgetFile)
import Control.Monad.Trans.Class (lift)
@ -89,7 +89,7 @@ instance Yesod ~sitearg~ where
urlRenderOverride _ _ = Nothing
messageLogger y loc level msg =
formatLogText (getLogger y) loc level msg >>= writeLogMsg (getLogger y)
formatLogText (getLogger y) loc level msg >>= logMsg (getLogger y)
-- This function creates static content files in the static folder
-- and names them based on a hash of their content. This allows