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

clean code

Browse source
This commit is contained in:
zapashcanon 2021-11-07 10:38:19 +01:00
parent f06d160fe2
commit 152cefa9e4
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
1 changed files with 6 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/permap.ml
View file

@ -30,17 +30,14 @@ let asset_loader _root path _request =
| None -> Dream.empty `Not_Found
| Some asset -> Dream.respond asset
let page path =
match Content.read (path ^ ".md") with
| None -> None
| Some page -> Some (Omd.of_string page |> Omd.to_html)
let page_of_name name request =
match page name with
let page name request =
match Content.read (name ^ ".md") with
| None -> Dream.empty `Not_Found
| Some content -> render_unsafe content request
| Some page ->
let content = Omd.of_string page |> Omd.to_html in
render_unsafe content request
let homepage request = page_of_name "index" request
let homepage request = page "index" request
let register_get request = render_unsafe (Register.f request) request