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

remove homepage, add /about, change navbar

Browse source
This commit is contained in:
Swrup 2022-02-16 17:00:29 +01:00
parent bb416d1e47
commit 6c56ba8bda
5 changed files with 38 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/permap.ml
View file

@ -37,7 +37,7 @@ let page name request =
let content = Omd.of_string page |> Omd.to_html in
render_unsafe content request
let homepage request = page "index" request
let about request = page "about" request
let register_get request = render_unsafe (Register.f request) request
@ -260,11 +260,17 @@ let reply_post request =
| `Wrong_content_type ->
Dream.empty `Bad_Request )
let redirect_to_babillard _request =
Dream.respond ~status:`Moved_Permanently
~headers:[ ("Location", "/babillard") ]
""
let () =
Dream.run @@ Dream.logger @@ Dream.memory_sessions
@@ Dream.router
[ Dream.get "/assets/**" (Dream.static ~loader:asset_loader "")
; Dream.get "/" homepage
; Dream.get "/" redirect_to_babillard
; Dream.get "/about" about
; Dream.get "/register" register_get
; Dream.post "/register" register_post
; Dream.get "/login" login_get