diff --git a/yesod/Scaffolding/Scaffolder.hs b/yesod/Scaffolding/Scaffolder.hs index bb3dadc2..5cd5569e 100644 --- a/yesod/Scaffolding/Scaffolder.hs +++ b/yesod/Scaffolding/Scaffolder.hs @@ -120,6 +120,7 @@ scaffold = do mkDir "Model" mkDir "deploy" mkDir "Settings" + mkDir "messages" writeFile' ("deploy/Procfile") $(codegen "deploy/Procfile") @@ -156,7 +157,8 @@ scaffold = do writeFile' "lucius/homepage.lucius" $(codegen "lucius/homepage.lucius") writeFile' "julius/homepage.julius" $(codegen "julius/homepage.julius") unless isTiny $ writeFile' "config/models" $(codegen "config/models") - + writeFile' "messages/en.msg" $(codegen "messages/en.msg") + S.writeFile (dir ++ "/config/favicon.ico") $(runIO (S.readFile "scaffold/config/favicon.ico.cg") >>= \bs -> do pack <- [|S.pack|] diff --git a/yesod/scaffold/Foundation.hs.cg b/yesod/scaffold/Foundation.hs.cg index 11c82fa5..d0740589 100644 --- a/yesod/scaffold/Foundation.hs.cg +++ b/yesod/scaffold/Foundation.hs.cg @@ -4,6 +4,7 @@ module Foundation ( ~sitearg~ (..) , ~sitearg~Route (..) + , ~sitearg~Message (..) , resources~sitearg~ , Handler , Widget @@ -51,6 +52,9 @@ data ~sitearg~ = ~sitearg~ , connPool :: Settings.ConnectionPool -- ^ Database connection pool. } +-- Set up i18n messages. See the message folder. +mkMessage "~sitearg~" "messages" "en" + -- This is where we define all of the routes in our application. For a full -- explanation of the syntax, please see: -- http://www.yesodweb.com/book/handler diff --git a/yesod/scaffold/hamlet/homepage.hamlet.cg b/yesod/scaffold/hamlet/homepage.hamlet.cg index 34432b74..e8907860 100644 --- a/yesod/scaffold/hamlet/homepage.hamlet.cg +++ b/yesod/scaffold/hamlet/homepage.hamlet.cg @@ -1,2 +1,2 @@ -

Hello +

_{MsgHello}

You do not have Javascript enabled. diff --git a/yesod/scaffold/messages/en.msg.cg b/yesod/scaffold/messages/en.msg.cg new file mode 100644 index 00000000..e928c34b --- /dev/null +++ b/yesod/scaffold/messages/en.msg.cg @@ -0,0 +1 @@ +Hello: Hello diff --git a/yesod/scaffold/tiny/Foundation.hs.cg b/yesod/scaffold/tiny/Foundation.hs.cg index d80e957e..ca02521b 100644 --- a/yesod/scaffold/tiny/Foundation.hs.cg +++ b/yesod/scaffold/tiny/Foundation.hs.cg @@ -1,8 +1,9 @@ {-# LANGUAGE QuasiQuotes, TemplateHaskell, TypeFamilies #-} -{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE OverloadedStrings, MultiParamTypeClasses #-} module Foundation ( ~sitearg~ (..) , ~sitearg~Route (..) + , ~sitearg~Message (..) , resources~sitearg~ , Handler , Widget @@ -35,6 +36,9 @@ data ~sitearg~ = ~sitearg~ , getStatic :: Static -- ^ Settings for static file serving. } +-- Set up i18n messages. See the message folder. +mkMessage "~sitearg~" "messages" "en" + -- This is where we define all of the routes in our application. For a full -- explanation of the syntax, please see: -- http://docs.yesodweb.com/book/web-routes-quasi/ diff --git a/yesod/yesod.cabal b/yesod/yesod.cabal index 4e43b436..ef65d087 100644 --- a/yesod/yesod.cabal +++ b/yesod/yesod.cabal @@ -50,6 +50,7 @@ extra-source-files: scaffold/config/routes.cg scaffold/Settings.hs.cg scaffold/Settings/StaticFiles.hs.cg + scaffold/messages/en.msg.cg flag ghc7