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

leaflet

Browse source
This commit is contained in:
pena 2021-12-06 19:44:27 +01:00 • committed by Swrup
parent e24fef1b23
commit 307e4294c5
11 changed files with 736 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/permap.ml
View file

@ -131,6 +131,8 @@ let avatar_image request =
| Some avatar -> Dream.respond ~headers:[ ("Content-Type", "image") ] avatar
)
let map request = page "map" request
let () =
Dream.run @@ Dream.logger @@ Dream.memory_sessions
@@ Dream.router
@ -140,6 +142,7 @@ let () =
; Dream.post "/register" register_post
; Dream.get "/login" login_get
; Dream.post "/login" login_post
; Dream.get "/map" map
; Dream.get "/user" user
; Dream.get "/user/:user" user_profile
; Dream.get "/user/:user/avatar" avatar_image