diff options
| -rw-r--r-- | lib/handlers.ml | 3 | ||||
| -rw-r--r-- | lib/views.ml | 7 |
2 files changed, 5 insertions, 5 deletions
diff --git a/lib/handlers.ml b/lib/handlers.ml index 141d197..76cdf42 100644 --- a/lib/handlers.ml +++ b/lib/handlers.ml @@ -14,8 +14,7 @@ module Repo = struct let repo = Dream.param req "repo" in let* branches = Resolvers.Branch.all repo in let* commits = Resolvers.Commit.recent repo 10 in - let authors = [ "John Pork"; "Sebastian Jellybean" ] in - Views.Repo.summary repo branches commits authors + Views.Repo.summary repo branches commits let log req = let repo = Dream.param req "repo" in 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); *) ]; } |