blob: 564d5636f169351c874bfbb0a28b55d6a925144b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
let ogit_root _ = Dream_html.respond @@ Views.Ogit_root.render ()
let repo_root repo = Dream_html.respond @@ Views.Repo.render repo
(* let repo_tree request = *)
(* let repo_name = Dream.param request "repo_name" in *)
(* let repo_path = Filename.concat (Unix.getenv "HOME") ("git/" ^ repo_name) in *)
(* let content = *)
(* if Sys.file_exists repo_path && Sys.is_directory repo_path then *)
(* let files = Helpers.File_helpers.list_files repo_path in *)
(* "<h1>Browsing repository: " ^ repo_name ^ "</h1><ul>" ^ files ^ "</ul>" *)
(* else "<h1>Repository not found: " ^ repo_name ^ "</h1>" *)
(* in *)
(* Dream.html (page_layout ~content) *)
|
