diff options
Diffstat (limited to 'lib/handlers.ml')
| -rw-r--r-- | lib/handlers.ml | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lib/handlers.ml b/lib/handlers.ml index 871931c..e63e911 100644 --- a/lib/handlers.ml +++ b/lib/handlers.ml @@ -13,36 +13,37 @@ module Repo = struct let summary req = let repo = Dream.param req "repo" in - let* branches = Resolvers.all_branches repo in - let* commits = Resolvers.recent_commits repo 10 in + (* let* branches = Resolvers.Branch.all repo in *) + (* let* commits = Resolvers.Commit.recent repo 10 in *) + let* commits = Resolvers.Commit.head repo in let authors = [ "John Pork"; "Sebastian Jellybean" ] in - Views.Repo.summary repo branches commits authors + Views.Repo.summary repo () [commits] authors let log req = let repo = Dream.param req "repo" in - let* commits = Resolvers.recent_commits repo 100 in + let* commits = Resolvers.Commit.recent repo 100 in Views.Repo.log repo commits let files_at_head req = let repo = Dream.param req "repo" in - let* tree = Resolvers.head_tree repo in + let* tree = Resolvers.Tree.head repo in Views.Repo.files repo tree let file_id req = let repo = Dream.param req "repo" in let id = Dream.param req "repo" in - let* blob = Resolvers.blob_of_id repo id in + let* blob = Resolvers.Blob.of_id repo id in Views.Repo.file repo blob let refs req = let repo = Dream.param req "repo" in - let* branches = Resolvers.all_branches repo in - Views.Repo.refs repo branches + (* let* branches = Resolvers.Branch.all repo in *) + Views.Repo.refs repo () let commit req = let repo = Dream.param req "repo" in let id = Dream.param req "id" in - let* commit = Resolvers.commit_of_id repo id in + let* commit = Resolvers.Commit.of_id repo id in Views.Repo.commit repo commit end |