let ogit_root _req = Views.Ogit_root.render () |> Dream_html.respond let repo_root req = let repo_name = Dream.param req "repo_name" in Views.Repo_root.render repo_name |> Dream_html.respond let repo_tree req = let repo_name = Dream.param req "repo_name" in let dir_path = Dream.target req in Views.Repo_tree.render repo_name dir_path |> Dream_html.respond let repo_blob req = let repo_name = Dream.param req "repo_name" in let blob_path = Dream.query req "path" |> Option.value ~default:"" in Views.Repo_blob.render repo_name blob_path |> Dream_html.respond let all_handlers = [ Dream.get "/" ogit_root; Dream.scope "/:repo_name" [] [ Dream.get "/" repo_root; Dream.get "/tree" repo_tree; Dream.get "/blob" repo_blob; ]; Dream.get "/static/**" (Dream.static "./lib/static"); ]