diff options
Diffstat (limited to 'lib/handlers.ml')
| -rw-r--r-- | lib/handlers.ml | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/lib/handlers.ml b/lib/handlers.ml index e63e911..7a37b20 100644 --- a/lib/handlers.ml +++ b/lib/handlers.ml @@ -4,8 +4,7 @@ let root _req = Views.root () module Repo = struct let ( let* ) m f = - let open Lwt.Infix in - m >>= function + Lwt.bind m @@ function | Ok x -> f x | Error e -> let msg = Format.asprintf "%a" Resolvers.Store.pp_error e in @@ -13,11 +12,10 @@ module Repo = struct let summary req = let repo = Dream.param req "repo" in - (* let* branches = Resolvers.Branch.all repo in *) - (* let* commits = Resolvers.Commit.recent repo 10 in *) - let* commits = Resolvers.Commit.head 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 () [commits] authors + Views.Repo.summary repo branches commits authors let log req = let repo = Dream.param req "repo" in @@ -37,8 +35,8 @@ module Repo = struct let refs req = let repo = Dream.param req "repo" in - (* let* branches = Resolvers.Branch.all repo in *) - Views.Repo.refs repo () + let* branches = Resolvers.Branch.all repo in + Views.Repo.refs repo branches let commit req = let repo = Dream.param req "repo" in |