diff --git a/src/web.ml b/src/web.ml
index be34e8b..55009ab 100644
--- a/src/web.ml
+++ b/src/web.ml
@@ -23,9 +23,9 @@ let () =
   let ymd f = L.of_file f in
   let ret_param name req = return (param req name) in
   App.empty
-  |> post "/post" (fun req -> ymd_of_req req >>= fun ymd -> L.to_file ymd >>= fun () -> html_response (Html.of_ymd ymd))
+  |> 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 "/new"  (fun _   -> return Ymd.blank_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 >>= html_response)
   |> get "/!/:ttl"    (fun req -> ret_param "ttl" req >|= L.latest_file_meta_pair >|= ymd_or_error >|= Html.of_ymd >>= html_response)
   |> get "/style.css" (fun _   -> return "ymd/style.css" >|= L.load_file >>= string_response)