retargeted href to share/ and fixed hardcoded url

2016-10-30 10:30:51 +00:00 · 2016-10-30 10:30:51 +00:00 · 2beb92b49a
commit 2beb92b49a
parent 73f566124b
1 changed files with 2 additions and 2 deletions
--- a/src/html.ml
+++ b/src/html.ml
@ -2,9 +2,9 @@ open Tyxml.Html

 let to_string tyxml = Format.asprintf "%a" (Tyxml.Html.pp ()) tyxml

-let head ?(style="/style.css") t =
+let head ?(style="/share/style.css") t =
  head (title (pcdata t)) [
-         link ~rel:[`Stylesheet] ~href:"/style.css" ();
+         link ~rel:[`Stylesheet] ~href:style ();
         meta ~a:[a_charset "utf-8"] ();
       ]