From 2bb39530d6719a839928d8fb0013d53a46dd6fb6 Mon Sep 17 00:00:00 2001
From: gregwebs <greg@gregweber.info>
Date: Sun, 25 Mar 2012 08:43:25 -0700
Subject: [PATCH] fix RootR -> HomeR

---
 yesod/scaffold/Handler/Home.hs.cg           | 8 ++++----
 yesod/scaffold/templates/homepage.hamlet.cg | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/yesod/scaffold/Handler/Home.hs.cg b/yesod/scaffold/Handler/Home.hs.cg
index 3201a98d..bc34e416 100644
--- a/yesod/scaffold/Handler/Home.hs.cg
+++ b/yesod/scaffold/Handler/Home.hs.cg
@@ -14,16 +14,16 @@ getHomeR :: Handler RepHtml
 getHomeR = do
     ((_, formWidget), formEnctype) <- generateFormPost sampleForm
     let submission = Nothing :: Maybe (FileInfo, Text)
-        handlerName = "getRootR" :: Text
+        handlerName = "getHomeR" :: Text
     defaultLayout $ do
         aDomId <- lift newIdent
         setTitle "Welcome To Yesod!"
         $(widgetFile "homepage")
 
-postRootR :: Handler RepHtml
-postRootR = do
+postHomeR :: Handler RepHtml
+postHomeR = do
     ((result, formWidget), formEnctype) <- runFormPost sampleForm
-    let handlerName = "postRootR" :: Text
+    let handlerName = "postHomeR" :: Text
         submission = case result of
             FormSuccess res -> Just res
             _ -> Nothing
diff --git a/yesod/scaffold/templates/homepage.hamlet.cg b/yesod/scaffold/templates/homepage.hamlet.cg
index ae0f27f7..950f4f13 100644
--- a/yesod/scaffold/templates/homepage.hamlet.cg
+++ b/yesod/scaffold/templates/homepage.hamlet.cg
@@ -29,7 +29,7 @@
     $maybe (info,con) <- submission
       <div .message>
         Your file's type was <em>#{fileContentType info}</em>. You say it has: <em>#{con}</em>
-    <form method=post action=@{RootR}#form enctype=#{formEnctype}>
+    <form method=post action=@{HomeR}#form enctype=#{formEnctype}>
       ^{formWidget}
       <input type="submit" value="Send it!">