Compare commits
No commits in common. "8cda69d30d3316f5af7ebd3b50f52b55cd345a31" and "3d3b5d6bd21548c43dc5c213db62bea66e532b38" have entirely different histories.
8cda69d30d
...
3d3b5d6bd2
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue