From e71671b69a3ffa5fcadb97af358e66bd0ba6496b Mon Sep 17 00:00:00 2001 From: Stavros Polymenis Date: Sun, 30 Oct 2016 11:44:51 +0000 Subject: [PATCH] updated static file url prefix --- src/html.ml | 2 +- src/web.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/html.ml b/src/html.ml index b6e2292..d5608f7 100644 --- a/src/html.ml +++ b/src/html.ml @@ -2,7 +2,7 @@ open Tyxml.Html let to_string tyxml = Format.asprintf "%a" (Tyxml.Html.pp ()) tyxml -let head ?(style="/share/style.css") t = +let head ?(style="/static/style.css") t = head (title (pcdata t)) [ link ~rel:[`Stylesheet] ~href:style (); meta ~a:[a_charset "utf-8"] (); diff --git a/src/web.ml b/src/web.ml index 6f2569a..60b2b07 100644 --- a/src/web.ml +++ b/src/web.ml @@ -70,7 +70,7 @@ let () = let form_of_ymd = Html.form ~header_tpl blog_url lgrn in let list_of_ymds = Html.of_file_meta_pairs ~header_tpl ~listing_tpl blog_url lgrn in App.empty - |> middleware @@ Middleware.static ~local_path:"./share" ~uri_prefix:"/share" + |> middleware @@ Middleware.static ~local_path:"./share/static" ~uri_prefix:"/static" |> post "/post" (fun req -> ymd_of_req req >>= fun ymd -> L.to_file ymd >>= fun () -> html_response (page_of_ymd ymd)) |> get "/edit/:ttl" (fun r -> ret_param "ttl" r >>= ymdpath >|= ymd >|= form_of_ymd >>= html_response) |> get "/new" (fun _ -> return Ymd.blank_ymd >|= form_of_ymd >>= html_response)