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.Auth.OpenId
import Yesod.Default.Config import Yesod.Default.Config
import Yesod.Default.Util (addStaticContentExternal) import Yesod.Default.Util (addStaticContentExternal)
import Yesod.Logger (Logger, writeLogMsg, formatLogText, logLazyText) import Yesod.Logger (Logger, logMsg, formatLogText, logLazyText)
import qualified Settings import qualified Settings
import qualified Data.ByteString.Lazy as L import qualified Data.ByteString.Lazy as L
import qualified Database.Persist.Base import qualified Database.Persist.Base
@ -108,7 +108,7 @@ instance Yesod ~sitearg~ where
authRoute _ = Just $ AuthR LoginR authRoute _ = Just $ AuthR LoginR
messageLogger y loc level msg = 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 -- This function creates static content files in the static folder
-- and names them based on a hash of their content. This allows -- 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.Default.Util (addStaticContentExternal)
import Yesod.Static (Static, base64md5, StaticRoute(..)) import Yesod.Static (Static, base64md5, StaticRoute(..))
import Settings.StaticFiles import Settings.StaticFiles
import Yesod.Logger (Logger, writeLogMsg, formatLogText, logLazyText) import Yesod.Logger (Logger, logMsg, formatLogText, logLazyText)
import qualified Settings import qualified Settings
import Settings (widgetFile) import Settings (widgetFile)
import Control.Monad.Trans.Class (lift) import Control.Monad.Trans.Class (lift)
@ -89,7 +89,7 @@ instance Yesod ~sitearg~ where
urlRenderOverride _ _ = Nothing urlRenderOverride _ _ = Nothing
messageLogger y loc level msg = 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 -- This function creates static content files in the static folder
-- and names them based on a hash of their content. This allows -- and names them based on a hash of their content. This allows