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

leaflet

Browse source
This commit is contained in:
zapashcanon 2021-12-06 19:44:27 +01:00
parent ce759a4206
commit cf79791e8e
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
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