From 936e03b591ba8678b7aeb8e83dfa5eef2c08db75 Mon Sep 17 00:00:00 2001 From: zapashcanon Date: Sun, 7 Nov 2021 01:32:38 +0100 Subject: [PATCH] list users --- src/content/index.md | 2 +- src/permap.ml | 37 ++++++++++++++++++++++--------------- src/template.eml.html | 5 ++++- src/user.ml | 16 ++++++++++++++++ 4 files changed, 43 insertions(+), 17 deletions(-) diff --git a/src/content/index.md b/src/content/index.md index 75f444c..ec7b7db 100644 --- a/src/content/index.md +++ b/src/content/index.md @@ -1,3 +1,3 @@ # Hello world -
Afficher une carte plus grande +
Afficher une carte plus grande diff --git a/src/permap.ml b/src/permap.ml index 74536ed..f33e0d6 100644 --- a/src/permap.ml +++ b/src/permap.ml @@ -41,7 +41,23 @@ let page_of_name name = let homepage _request = page_of_name "index" -let register _request = page_of_name "register" +let register_get request = render_unsafe (Register.f request) + +let register_post request = + match%lwt Dream.form request with + | `Ok [ ("email", email); ("nick", nick); ("password", password) ] -> + render_unsafe (Register.f ~nick ~email ~password request) + | _ -> assert false + +let login_get request = render_unsafe (Login.f request) + +let login_post request = + match%lwt Dream.form request with + | `Ok [ ("nick", nick); ("password", password) ] -> + render_unsafe (Login.f ~nick ~password request) + | _ -> assert false + +let user request = render_unsafe (User.list request) let () = Dream.run ~interface:"0.0.0.0" @@ -49,19 +65,10 @@ let () = @@ Dream.router [ Dream.get "/assets/**" (Dream.static ~loader:asset_loader "") ; Dream.get "/" homepage - ; Dream.get "/register" (fun request -> - render_unsafe (Register.f request) ) - ; Dream.post "/register" (fun request -> - match%lwt Dream.form request with - | `Ok [ ("email", email); ("nick", nick); ("password", password) ] - -> - render_unsafe (Register.f ~nick ~email ~password request) - | _ -> assert false ) - ; Dream.get "/login" (fun request -> render_unsafe (Login.f request)) - ; Dream.post "/login" (fun request -> - match%lwt Dream.form request with - | `Ok [ ("nick", nick); ("password", password) ] -> - render_unsafe (Login.f ~nick ~password request) - | _ -> assert false ) + ; Dream.get "/register" register_get + ; Dream.post "/register" register_post + ; Dream.get "/login" login_get + ; Dream.post "/login" login_post + ; Dream.get "/user" user ] @@ Dream.not_found diff --git a/src/template.eml.html b/src/template.eml.html index ef85507..3a1cef9 100644 --- a/src/template.eml.html +++ b/src/template.eml.html @@ -11,7 +11,7 @@ let render_unsafe ~title ~content =