From 8818004f350de186056da08c8541d515d01d264b Mon Sep 17 00:00:00 2001 From: Stavros Polymenis Date: Mon, 17 Oct 2016 21:43:00 +0100 Subject: [PATCH] fixed spacing --- src/web.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/web.ml b/src/web.ml index fde49d1..6648342 100644 --- a/src/web.ml +++ b/src/web.ml @@ -26,7 +26,7 @@ let () = let text_tpl = Some (Logarion.load_file "share/text.mustache") in App.empty |> post "/post" (fun req -> ymd_of_req req >>= fun ymd -> L.to_file ymd >>= fun () -> html_response (Html.of_ymd ymd)) - |> get "/edit/:ttl" (fun r -> ret_param "ttl" r >>= ymdpath >|= ymd >|= Html.form >>= html_response) + |> get "/edit/:ttl" (fun r -> ret_param "ttl" r >>= ymdpath >|= ymd >|= Html.form >>= html_response) |> get "/new" (fun _ -> return Ymd.blank_ymd >|= Html.form >>= html_response) |> get "/text/:ttl" (fun req -> ret_param "ttl" req >>= ymdpath >|= ymd >|= Html.of_ymd ~text_tpl >>= html_response) |> get "/!/:ttl" (fun req -> ret_param "ttl" req >|= L.latest_file_meta_pair >|= ymd_or_error >|= Html.of_ymd >>= html_response)