Compare commits

..

No commits in common. "8cda69d30d3316f5af7ebd3b50f52b55cd345a31" and "3d3b5d6bd21548c43dc5c213db62bea66e532b38" have entirely different histories.

1 changed files with 3 additions and 4 deletions

View File

@ -67,8 +67,7 @@ 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. Rekisteriin kirjattuja tietoja käsitellään
<a href="https://datat.fi/rekisteriseloste">rekisteriselosteen</a> mukaisesti.
sekä sitoudut pitämään ne ajan tasalla.
<input type="submit" value="Hae jäseneksi">
|]
@ -81,7 +80,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 >> redirect VerifyEmailR
-- TODO: Automatically log in
FormSuccess application -> apiRequest @Apply False application >>= \x ->
redirect $ ProfileR $ let ApplyApply {..} = apply x in id
_ -> do
defaultLayout $ applyW (widget, enctype)