diff --git a/yesod/scaffold/Foundation.hs.cg b/yesod/scaffold/Foundation.hs.cg index 153b96ec..68699e1a 100644 --- a/yesod/scaffold/Foundation.hs.cg +++ b/yesod/scaffold/Foundation.hs.cg @@ -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 diff --git a/yesod/scaffold/tiny/Foundation.hs.cg b/yesod/scaffold/tiny/Foundation.hs.cg index 37c14cd0..76bc887d 100644 --- a/yesod/scaffold/tiny/Foundation.hs.cg +++ b/yesod/scaffold/tiny/Foundation.hs.cg @@ -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