add private profile page

src/permap.ml

@@ -60,13 +60,15 @@ let login_post request =
 
 let user request = render_unsafe (User.list ()) request
 
-let user_profile request = render_unsafe (User.profile request) request
+let user_profile request = render_unsafe (User.public_profile request) request
 
 let logout request =
   let _ = Dream.invalidate_session request in
   let content = "Logged out !" in
   render_unsafe content request
 
+let profile request = render_unsafe (User.profile request) request
+
 let () =
   Dream.run @@ Dream.logger @@ Dream.memory_sessions
   @@ Dream.router
@@ -79,5 +81,6 @@ let () =
        ; Dream.get "/user" user
        ; Dream.get "/user/:user" user_profile
        ; Dream.get "/logout" logout
+       ; Dream.get "/profile" profile
        ]
   @@ Dream.not_found

src/user.ml

@@ -102,7 +102,7 @@ let list () =
          | _ -> failwith "error" ) )
       users
 
-let profile request =
+let public_profile request =
   let nick = Dream.param "user" request in
   let open Sqlite3_utils in
   let user =
@@ -116,3 +116,8 @@ let profile request =
       email
   | Ok _ -> "incoherent db answer"
   | Error e -> Format.sprintf "db error: %s" (Rc.to_string e)
+
+let profile request =
+  match Dream.session "nick" request with
+  | None -> "not logged in"
+  | Some nick -> Format.sprintf "Hello %s !" nick