1 files changed, 49 insertions, 43 deletions

diff --git a/lib/views.ml b/lib/views.ml
index 1e0a858..e65a249 100644
--- a/lib/views.ml
+++ b/lib/views.ml
@@ -91,7 +91,7 @@ let root () =
       content = [ all_repositories ];
     }
   in
-  Page.render body_data
+  respond @@ Page.render body_data
 
 module Repo = struct
   open Git_presenters
@@ -140,13 +140,14 @@ module Repo = struct
           ul [] (List.map li_of_author authors);
         ]
     in
-    Page.render ~page_title:(page_title repo)
-      {
-        title = repo;
-        subtitle = repo_description repo;
-        topnav = Components.Topnav.(v ~active_path:Summary repo);
-        content;
-      }
+    respond
+    @@ Page.render ~page_title:(page_title repo)
+         {
+           title = repo;
+           subtitle = repo_description repo;
+           topnav = Components.Topnav.(v ~active_path:Summary repo);
+           content;
+         }
 
   let refs repo branches =
     let content =
@@ -156,13 +157,14 @@ module Repo = struct
           ul [] (List.map (li_of_branch repo) branches);
         ]
     in
-    Page.render ~page_title:(page_title repo)
-      {
-        title = repo;
-        subtitle = repo_description repo;
-        topnav = Components.Topnav.(v ~active_path:Refs repo);
-        content;
-      }
+    respond
+    @@ Page.render ~page_title:(page_title repo)
+         {
+           title = repo;
+           subtitle = repo_description repo;
+           topnav = Components.Topnav.(v ~active_path:Refs repo);
+           content;
+         }
 
   let log repo commits =
     let content =
@@ -172,13 +174,14 @@ module Repo = struct
           ul [] (List.map (li_of_commit repo) commits);
         ]
     in
-    Page.render ~page_title:(page_title repo)
-      {
-        title = repo;
-        subtitle = repo_description repo;
-        topnav = Components.Topnav.(v ~active_path:Log repo);
-        content;
-      }
+    respond
+    @@ Page.render ~page_title:(page_title repo)
+         {
+           title = repo;
+           subtitle = repo_description repo;
+           topnav = Components.Topnav.(v ~active_path:Log repo);
+           content;
+         }
 
   let files repo tree =
     let title = Printf.sprintf "%s" repo in
@@ -189,13 +192,14 @@ module Repo = struct
           ul [] (List.map (li_of_entry repo) tree.entries);
         ]
     in
-    Page.render ~page_title:(page_title repo)
-      {
-        title;
-        subtitle = repo_description repo;
-        topnav = Components.Topnav.(v ~active_path:Files repo);
-        content;
-      }
+    respond
+    @@ Page.render ~page_title:(page_title repo)
+         {
+           title;
+           subtitle = repo_description repo;
+           topnav = Components.Topnav.(v ~active_path:Files repo);
+           content;
+         }
 
   let file repo blob =
     let title = Printf.sprintf "%s" repo in
@@ -214,25 +218,27 @@ module Repo = struct
     let content =
       HTML.[ h3 [] [ txt "File" ]; div [ id "blob" ] formatted_blob ]
     in
-    Page.render ~page_title:(page_title repo)
-      {
-        title;
-        subtitle = repo_description repo;
-        topnav = Components.Topnav.(v ~active_path:Files repo);
-        content;
-      }
+    respond
+    @@ Page.render ~page_title:(page_title repo)
+         {
+           title;
+           subtitle = repo_description repo;
+           topnav = Components.Topnav.(v ~active_path:Files repo);
+           content;
+         }
 
   let commit repo commit =
     let message = match commit.message with Some msg -> msg | None -> "" in
     let title = Printf.sprintf "%s : %s" repo commit.short_hash in
     let content = HTML.[ h3 [] [ txt "%s" message ] ] in
-    Page.render ~page_title:(page_title repo)
-      {
-        title;
-        subtitle = repo_description repo;
-        topnav = Components.Topnav.v repo;
-        content;
-      }
+    respond
+    @@ Page.render ~page_title:(page_title repo)
+         {
+           title;
+           subtitle = repo_description repo;
+           topnav = Components.Topnav.v repo;
+           content;
+         }
 end
 
 let error_page message =