swrup/pellest
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Brrrr

Browse source
This commit is contained in:
Swrup 2022-12-07 00:10:41 +01:00
parent 6357674db8
commit 8f61881fe8
2 changed files with 43 additions and 50 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/login.ml
View file

@ -7,7 +7,9 @@ let get request =
let title = "Pellest|Login" in
let login =
let submit = button ~a:[ a_id "submit_login" ] [ txt "submit" ] in
let login = input ~a:[ a_id "login"; a_name "login"; a_input_type `Text ] () in
let login =
input ~a:[ a_id "login"; a_name "login"; a_input_type `Text ] ()
in
let password =
input ~a:[ a_id "password"; a_name "password"; a_input_type `Password ] ()
in