A bit of HTML
This commit is contained in:
parent
70754f81d7
commit
acc732a31f
2 changed files with 13 additions and 9 deletions
|
@ -145,6 +145,10 @@ genCss = do
|
|||
backgroundColor base3
|
||||
cursor pointer
|
||||
color base01
|
||||
active & do
|
||||
cursor pointer
|
||||
backgroundColor solyellow
|
||||
color white
|
||||
button ?
|
||||
border solid (px 1) black
|
||||
input # ("type" |= "checkbox") ?
|
||||
|
|
|
@ -53,24 +53,24 @@ loginPage :: H.Html
|
|||
loginPage = do
|
||||
H.h2 "Login"
|
||||
H.form ! A.action "/login" ! A.method "post" $ do
|
||||
H.label (H.text "username")
|
||||
H.input ! A.name "username"
|
||||
H.label ! A.for "username" $ H.text "username"
|
||||
H.input ! A.required "" ! A.placeholder "Enter Username" ! A.name "username"
|
||||
H.br
|
||||
H.label (H.text "password")
|
||||
H.input ! A.type_ "password" ! A.name "password"
|
||||
H.label ! A.for "password" $ H.text "password"
|
||||
H.input ! A.required "" ! A.placeholder "Enter Password" ! A.type_ "password" ! A.name "password"
|
||||
H.br
|
||||
H.input ! A.type_ "submit" ! A.value "Login"
|
||||
H.hr
|
||||
H.h2 "Create Account"
|
||||
H.form ! A.action "/users" ! A.method "post" $ do
|
||||
H.label (H.text "username")
|
||||
H.input ! A.name "username"
|
||||
H.label ! A.for "username" $ H.text "username"
|
||||
H.input ! A.required "" ! A.placeholder "Enter Username" ! A.name "username"
|
||||
H.br
|
||||
H.label (H.text "password")
|
||||
H.input ! A.type_ "password" ! A.name "password"
|
||||
H.label ! A.for "password" $ H.text "password"
|
||||
H.input ! A.required "" ! A.placeholder "Enter Password" ! A.type_ "password" ! A.name "password"
|
||||
H.br
|
||||
H.label (H.text "email?")
|
||||
H.input ! A.type_ "email" ! A.name "email"
|
||||
H.input ! A.type_ "email" ! A.placeholder "Enter Email" ! A.name "email"
|
||||
H.br
|
||||
H.input ! A.type_ "submit" ! A.value "Create Account"
|
||||
|
||||
|
|
Loading…
Reference in a new issue