We planned to upgrade GitLab and Mattermost to the latest version this Friday morning (early). You may experience some downtime!

Verified Commit f1c58211 authored by Camil Staps's avatar Camil Staps 🚀

More valid HTML

parent fafd771b
Pipeline #14412 failed with stage
in 55 seconds
......@@ -33,11 +33,11 @@ where
finalizeHTML fp html = HtmlTag [LangAttr "en"]
[ HeadTag []
[ TitleTag [] [Text "Documentation"]
, MetaTag [CharsetAttr "utf-8"] []
, LinkTag [RelAttr "stylesheet", TypeAttr "text/css", HrefAttr (relativePath "modules/clean-highlighter/clean.css")] []
, LinkTag [RelAttr "stylesheet", TypeAttr "text/css", HrefAttr (relativePath "css/style.css")] []
, ScriptTag [DeferAttr "defer", TypeAttr "text/javascript", SrcAttr (relativePath "modules/clean-highlighter/clean.js")] []
, ScriptTag [DeferAttr "defer", TypeAttr "text/javascript", SrcAttr (relativePath "js/cleandoc.js")] []
, MetaTag [CharsetAttr "utf-8"]
, LinkTag [RelAttr "stylesheet", TypeAttr "text/css", HrefAttr (relativePath "modules/clean-highlighter/clean.css")]
, LinkTag [RelAttr "stylesheet", TypeAttr "text/css", HrefAttr (relativePath "css/style.css")]
, ScriptTag [DeferAttr "defer", SrcAttr (relativePath "modules/clean-highlighter/clean.js")] []
, ScriptTag [DeferAttr "defer", SrcAttr (relativePath "js/cleandoc.js")] []
]
, BodyTag []
[ DivTag [IdAttr "container"]
......@@ -128,7 +128,7 @@ where
# fp = root </> fp
# (err,w) = ensureDirectoryExists (takeDirectory fp) w
| isError err = ([snd (fromError err)], w)
# (err,w) = writeFile fp (toString contents) w
# (err,w) = writeFile fp ("<!DOCTYPE html>" <+ contents) w
| isError err = ([toString (fromError err)], w)
= ([], w)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment