create link form

This commit is contained in:
Jonathan Lamothe 2021-09-22 22:53:33 -04:00
parent 54b9e32353
commit 55fcdf4d58
2 changed files with 35 additions and 11 deletions

View File

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

View File

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