Commit 65499d20 authored by Karen Konou's avatar Karen Konou

[Login form] Adjust lost password design

parent fa4d3a5b
......@@ -32,7 +32,7 @@ forgotPasswordCpt = here.component "forgotPassword" cpt where
email <- T.useBox ""
pure $ H.div { className: "row" }
[ H.form { className: "col-md-12" }
[ H.form { className: "text-center col-md-12" }
[ H.h4 {} [ H.text "Forgot password" ]
, formGroup
[ emailInput email ]
......@@ -60,7 +60,7 @@ submitButtonCpt = here.component "submitButton" cpt where
cpt { backend, email, sessions } _ = do
email' <- T.useLive T.unequal email
pure $ formGroup
pure $ H.div {className: "form-group text-center"}
[ H.button { className: "btn btn-primary"
, on: { click: click email' }}
[ H.text "Submit" ]
......
......@@ -176,8 +176,8 @@ forgotPasswordCpt :: R.Component ForgotPasswordProps
forgotPasswordCpt = here.component "forgotPassword" cpt where
cpt { formType } _ = do
pure $ H.div { className: "form-group text-center" }
[ H.button { className: "btn btn-danger"
, on: { click } } [ H.text "Forgot password" ]
[ H.a { className: "text-primary",
on: { click } } [ H.text "Forgot password?" ]
]
where
click _ = T.write_ ForgotPassword formType
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment