From d5d725630fb8eca2b8eb79a479044646f312b056 Mon Sep 17 00:00:00 2001 From: Marius Peter Date: Sun, 25 May 2025 15:49:46 +0200 Subject: Refactor helpers as presenters. Rather than generically ``helping'', this module provides intermediate representations of ocaml-git objects usable by the Views module. --- lib/handlers.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'lib/handlers.ml') diff --git a/lib/handlers.ml b/lib/handlers.ml index a99f8ae..dadf0e1 100644 --- a/lib/handlers.ml +++ b/lib/handlers.ml @@ -12,8 +12,8 @@ module Repo = struct let repo req = Dream.param req "repo_name" let summary req = - let* branches = Git_helpers.Branch.all_branches (repo req) in - let* commits = Git_helpers.Commit.recent_commits (repo req) 10 in + let* branches = Git_presenters.Branch.all_branches (repo req) in + let* commits = Git_presenters.Commit.recent_commits (repo req) 10 in let authors = [ "John Pork"; "Sebastian Jellybean" ] in Views.Repo.summary (repo req) branches commits authors |> Dream_html.respond @@ -23,7 +23,7 @@ module Repo = struct let commit req = let id = match Dream.query req "id" with Some id -> id | None -> "" in - let* commit = Git_helpers.Commit.of_id (repo req) id in + let* commit = Git_presenters.Commit.of_id (repo req) id in Views.Repo.commit (repo req) commit |> Dream_html.respond end -- cgit v1.2.3