From 152cefa9e4253b1569fb81accd8726123a9b59f7 Mon Sep 17 00:00:00 2001 From: zapashcanon Date: Sun, 7 Nov 2021 10:38:19 +0100 Subject: [PATCH] clean code --- src/permap.ml | 15 ++++++--------- 1 file changed, 6 insertions(+), 9 deletions(-) diff --git a/src/permap.ml b/src/permap.ml index f302efd..3dc5d7f 100644 --- a/src/permap.ml +++ b/src/permap.ml @@ -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