create link form

src/Handler/Home.hs

@@ -25,15 +25,33 @@ along with this program.  If not, see <https://www.gnu.org/licenses/>.
 module Handler.Home where
 
 import Import
+import Helpers
+
+title :: Text
+title = "DiscussMormonism.com Link Fixer"
+
+linkForm :: Form Text
+linkForm = renderDivs $
+  areq urlField "Old URL" Nothing
 
 getHomeR :: Handler Html
-getHomeR = defaultLayout $ do
-  setTitle "Welcome To Yesod!"
-  $(widgetFile "homepage")
+getHomeR = do
+  (widget, enctype) <- generateFormPost linkForm
+  defaultLayout $ do
+    setTitle $ toHtml title
+    $(widgetFile "homepage")
 
 postHomeR :: Handler Html
-postHomeR = defaultLayout $ do
-  setTitle "Welcome To Yesod!"
-  $(widgetFile "homepage")
+postHomeR = do
+  ((result, _), _) <- runFormPost linkForm
+  case result of
+    FormSuccess l -> case updateLink l of
+      Just l' -> redirect l'
+      Nothing -> do
+        setMessage "Invalid link"
+        redirect HomeR
+    _ -> do
+      setMessage "Something went wrong"
+      redirect HomeR
 
 --jl

templates/homepage.hamlet

@@ -1,5 +1,11 @@
-<div .masthead>
-  <div .container>
-    <div .row>
-      <h1 .header>
-        DiscussMormonism.com Link Fixer
+<div .container>
+  <div .row>
+    <h1 .header>
+      #{title}
+    <p>
+      This site is not affiliated with
+      <a href="https://discussmormonism.com">DiscussMormonism.com
+      and is provided as a convenience. It takes links from the old MormonDiscussions.com site and redirects them to the current message board.
+    <form method=post enctype=#{enctype}>
+      ^{widget}
+      <button>Go!