register html
This commit is contained in:
parent
95db1db9ad
commit
70754f81d7
3 changed files with 35 additions and 2 deletions
|
@ -11,4 +11,10 @@ let PostgresConfig
|
|||
|
||||
let DBConf : Type = < SQLite : SQLiteConfig | Postgre : PostgresConfig >
|
||||
|
||||
in { port = 3000, db = DBConf.SQLite { filepath = "aggreact.db" } }
|
||||
in { port =
|
||||
3000
|
||||
, jwtKeyFilePath =
|
||||
"jwt.key"
|
||||
, db =
|
||||
DBConf.SQLite { filepath = "aggreact.db" }
|
||||
}
|
|
@ -134,6 +134,19 @@ genCss = do
|
|||
display inlineBlock
|
||||
content (stringContent "[-]")
|
||||
cursor pointer
|
||||
input # ("type" |= "submit") ? do
|
||||
fontWeight bold
|
||||
borderBottom solid (px 0) solblue
|
||||
borderTop solid (px 0) solblue
|
||||
borderLeft solid (px 0) solblue
|
||||
borderRight solid (px 0) solblue
|
||||
backgroundColor base2
|
||||
hover & do
|
||||
backgroundColor base3
|
||||
cursor pointer
|
||||
color base01
|
||||
button ?
|
||||
border solid (px 1) black
|
||||
input # ("type" |= "checkbox") ?
|
||||
display none
|
||||
input # ("type" |= "checkbox") # checked |+ div |> label |> span ?
|
||||
|
|
|
@ -50,7 +50,8 @@ container :: H.Html -> H.Html
|
|||
container = H.div ! A.class_ "container"
|
||||
|
||||
loginPage :: H.Html
|
||||
loginPage =
|
||||
loginPage = do
|
||||
H.h2 "Login"
|
||||
H.form ! A.action "/login" ! A.method "post" $ do
|
||||
H.label (H.text "username")
|
||||
H.input ! A.name "username"
|
||||
|
@ -59,6 +60,19 @@ loginPage =
|
|||
H.input ! 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.br
|
||||
H.label (H.text "password")
|
||||
H.input ! A.type_ "password" ! A.name "password"
|
||||
H.br
|
||||
H.label (H.text "email?")
|
||||
H.input ! A.type_ "email" ! A.name "email"
|
||||
H.br
|
||||
H.input ! A.type_ "submit" ! A.value "Create Account"
|
||||
|
||||
data LoginPage = LoginPage
|
||||
instance H.ToMarkup LoginPage where
|
||||
|
|
Loading…
Reference in a new issue