diff options
Diffstat (limited to 'lib/views.ml')
| -rw-r--r-- | lib/views.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lib/views.ml b/lib/views.ml index 024aeea..9402ad3 100644 --- a/lib/views.ml +++ b/lib/views.ml @@ -92,7 +92,8 @@ module Repo = struct let page_title repo = Printf.sprintf "%s — %s" repo (Resolvers.repo_description repo) - let li_of_author author = HTML.(li [] [ txt "%s" author ]) + let li_of_author (author : Resolvers.Commit.user) = + HTML.(li [] [ txt "%s" author.name ]) let li_of_branch repo (branch : Resolvers.Branch.t) = HTML.(li [] [ Routes.link_to (Refs repo) (txt "%s" branch.name) ]) @@ -135,8 +136,8 @@ module Repo = struct ul [] (List.map (li_of_branch repo) branches); h3 [] [ txt "Latest commits" ]; ul [] (List.map (li_of_commit repo) commits); - h3 [] [ txt "Authors" ]; - ul [] (List.map li_of_author authors); + (* h3 [] [ txt "Authors" ]; *) + (* ul [] (List.map li_of_author authors); *) ]; } |