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

clean code

Browse source
This commit is contained in:
pena 2021-11-07 10:38:19 +01:00 • committed by Swrup
parent 4105d0a988
commit c42c759d40
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 | None -> Dream.empty `Not_Found
| Some asset -> Dream.respond asset | Some asset -> Dream.respond asset
let page path = let page name request =
match Content.read (path ^ ".md") with match Content.read (name ^ ".md") with
| None -> None
| Some page -> Some (Omd.of_string page |> Omd.to_html)
let page_of_name name request =
match page name with
| None -> Dream.empty `Not_Found | 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 let register_get request = render_unsafe (Register.f request) request