Update views.

1 files changed, 7 insertions, 10 deletions

diff --git a/lib/views.ml b/lib/views.ml
index 9402ad3..576fa14 100644
--- a/lib/views.ml
+++ b/lib/views.ml
@@ -113,16 +113,13 @@ module Repo = struct
     HTML.li [] [ Routes.link_to route node ]
 
   let li_of_entry repo (entry : Resolvers.Entry.t) =
-    let display_name =
-      if entry.perm = 0o040000 then entry.name ^ "/" else entry.name
+    let route = Routes.File (repo, entry.hash) in
+    let text =
+      txt "%s" (if entry.perm = 0o040000 then entry.name ^ "/" else entry.name)
     in
-    let route =
-      if entry.perm = 0o040000 then Routes.Files repo
-      else Routes.File (repo, entry.hash)
-    in
-    HTML.(li [] [ Routes.link_to route @@ txt "%s" display_name ])
+    HTML.(li [] [ Routes.link_to route text ])
 
-  let summary repo branches commits authors =
+  let summary repo branches commits =
     respond
     @@ Page.render ~page_title:(page_title repo)
          {
@@ -177,11 +174,11 @@ module Repo = struct
          {
            title = Printf.sprintf "%s" repo;
            subtitle = Resolvers.repo_description repo;
-           topnav = Components.Topnav.(v ~active_path:Files repo);
+           topnav = Components.Topnav.v ~active_path:Files repo;
            content =
              HTML.
                [
-                 h3 [] [ txt "Files %s" @@ Resolvers.short_hash tree.hash ];
+                 h3 [] [ txt "Files at %s" tree.path ];
                  ul [] (List.map (li_of_entry repo) tree.entries);
                ];
          }