bin/main.ml


1
2
3
4
5
6
7
8
9
10
11
12
13

let () =
  Dream.run @@ Dream.logger
  @@ Dream.router
       [
         Dream.get "/" (fun _req -> Ogit.Handlers.ogit_root _req);
         Dream.get "/:repo_name" (fun req ->
             let repo_name = Dream.param req "repo_name" in
             Ogit.Handlers.repo_root repo_name);
         Dream.get "/:repo_name/tree" (fun req ->
             let repo_name = Dream.param req "repo_name" in
             Ogit.Handlers.repo_tree repo_name);
         Dream.get "/static/**" (Dream.static "./lib/static");
       ]