Compare commits

..

2 Commits

1 changed files with 4 additions and 3 deletions

View File

@ -67,7 +67,8 @@ applyW (applyWidget, applyEnctype) = do
^{applyWidget}
<p>
Lähettämällä jäsenhakemuksen vakuutat antamiesi tietojen oikeellisuuden ja puuttettomuuden
sekä sitoudut pitämään ne ajan tasalla.
sekä sitoudut pitämään ne ajan tasalla. Rekisteriin kirjattuja tietoja käsitellään
<a href="https://datat.fi/rekisteriseloste">rekisteriselosteen</a> mukaisesti.
<input type="submit" value="Hae jäseneksi">
|]
@ -80,7 +81,7 @@ postApplyR :: (YesodAuth DataIdClient, AuthId DataIdClient ~ Text) => Handler Ht
postApplyR = do
((result, widget), enctype) <- runFormPost applyForm
case result of
FormSuccess application -> apiRequest @Apply False application >>= \x ->
redirect $ ProfileR $ let ApplyApply {..} = apply x in id
FormSuccess application -> apiRequest @Apply False application >> redirect VerifyEmailR
-- TODO: Automatically log in
_ -> do
defaultLayout $ applyW (widget, enctype)