From 731d5a344ba26bebad06d1170d575c05b871e0b6 Mon Sep 17 00:00:00 2001
From: Stavros Polymenis <sp@orbitalfox.com>
Date: Fri, 20 Oct 2017 22:44:06 +0100
Subject: [PATCH] Fix indentation

---
 src/logarion_webserver.ml | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/src/logarion_webserver.ml b/src/logarion_webserver.ml
index c95aa49..5dd3656 100644
--- a/src/logarion_webserver.ml
+++ b/src/logarion_webserver.ml
@@ -144,20 +144,20 @@ let () =
   print_endline @@ "Server address: " ^ Uri.to_string web_config.Configuration.url;
   print_endline @@ "Press Ctrl+C to stop.";
   App.empty
-    |> App.port (match Uri.port web_config.Configuration.url with Some p -> p | None -> 3666)
-    |> middleware @@
-         Middleware.static
-           ~local_path:(Fpath.to_string web_config.Configuration.static)
-           ~uri_prefix:"/static"
-    |> get "/:ttl"      @@ view_note "ttl" lgrn (L.note_with_alias lgrn)
-    |> post "/post.note" @@ post_note lgrn
-    |> get "/edit.note/:ttl" @@ edit_note "ttl" lgrn (L.note_with_alias lgrn)
-    |> get "/new.note"   (fun _ -> lwt_blanknote () >|= form_of_note >>= html_response)
-    |> get "/topic/:topic" @@ list_notes_with_topic "topic" lgrn
-    |> get "/note/:ttl" @@ view_note "ttl" lgrn (L.note_with_alias lgrn)
-    |> get "/!/:ttl"    @@ view_note "ttl" lgrn (fun t -> match L.latest_entry lgrn t with
-                                                          | Some meta -> L.note_with_id lgrn meta.Logarion.Meta.uuid
-                                                          | None -> None)
-    |> get "/feed.atom" @@ atom_response lgrn
-    |> get "/"          @@ list_notes "p" lgrn
-    |> App.run_command
+  |> App.port (match Uri.port web_config.Configuration.url with Some p -> p | None -> 3666)
+  |> middleware @@
+       Middleware.static
+         ~local_path:(Fpath.to_string web_config.Configuration.static)
+         ~uri_prefix:"/static"
+  |> get "/:ttl"      @@ view_note "ttl" lgrn (L.note_with_alias lgrn)
+  |> post "/post.note" @@ post_note lgrn
+  |> get "/edit.note/:ttl" @@ edit_note "ttl" lgrn (L.note_with_alias lgrn)
+  |> get "/new.note"   (fun _ -> lwt_blanknote () >|= form_of_note >>= html_response)
+  |> get "/topic/:topic" @@ list_notes_with_topic "topic" lgrn
+  |> get "/note/:ttl" @@ view_note "ttl" lgrn (L.note_with_alias lgrn)
+  |> get "/!/:ttl"    @@ view_note "ttl" lgrn (fun t -> match L.latest_entry lgrn t with
+                                                        | Some meta -> L.note_with_id lgrn meta.Logarion.Meta.uuid
+                                                        | None -> None)
+  |> get "/feed.atom" @@ atom_response lgrn
+  |> get "/"          @@ list_notes "p" lgrn
+  |> App.run_command