Compare commits

..

2 Commits

1 changed files with 4 additions and 3 deletions

View File

@ -67,7 +67,8 @@ applyW (applyWidget, applyEnctype) = do
^{applyWidget} ^{applyWidget}
<p> <p>
Lähettämällä jäsenhakemuksen vakuutat antamiesi tietojen oikeellisuuden ja puuttettomuuden 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"> <input type="submit" value="Hae jäseneksi">
|] |]
@ -80,7 +81,7 @@ postApplyR :: (YesodAuth DataIdClient, AuthId DataIdClient ~ Text) => Handler Ht
postApplyR = do postApplyR = do
((result, widget), enctype) <- runFormPost applyForm ((result, widget), enctype) <- runFormPost applyForm
case result of case result of
FormSuccess application -> apiRequest @Apply False application >>= \x -> FormSuccess application -> apiRequest @Apply False application >> redirect VerifyEmailR
redirect $ ProfileR $ let ApplyApply {..} = apply x in id -- TODO: Automatically log in
_ -> do _ -> do
defaultLayout $ applyW (widget, enctype) defaultLayout $ applyW (widget, enctype)