diff options
author | Marius Peter <marius.peter@tutanota.com> | 2025-06-21 12:09:35 +0200 |
---|---|---|
committer | Marius Peter <marius.peter@tutanota.com> | 2025-06-21 12:09:35 +0200 |
commit | 034ae69f2f22d7957386e73b3c42053fbf0cdfb2 (patch) | |
tree | b991f59a492b62b059029aa7365547e826c07416 /lib/handlers.ml | |
parent | 6e07594aace8bc2c6f99219b4022a68291201aad (diff) |
Refactor resolvers.
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 |