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 @@ -