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

clean code

Browse source
This commit is contained in:
pena 2022-12-06 01:00:39 +01:00 • committed by Swrup
parent 9b1dbda081
commit 238e6fba75
10 changed files with 46 additions and 27 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/login.ml
View file

@ -1,12 +1,16 @@
open Tyxml.Html
open Tyx_util
open Syntax
let get request =
let** () = User.assert_not_logged request in
let title = "Pellest|Login" in
let login =
let submit = button ~a:[ a_id "submit_login" ] [ txt "submit" ] in
let login = make_input_text "login" in
let password = make_input_text "password" 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
div
[ make_form request ~action:"/login" ~items:[ login; password; submit ] ]
in
@ -15,7 +19,7 @@ let get request =
Template.render ~title ~scripts:[] page
let post request =
let open Syntax in
let** () = User.assert_not_logged request in
match%lwt Dream.form request with
| `Ok [ ("login", login); ("password", password) ] ->
let** () = User.login ~login ~password request in