diff --git a/src/WebInterface.hs b/src/WebInterface.hs index 25573533..c79e5bad 100644 --- a/src/WebInterface.hs +++ b/src/WebInterface.hs @@ -24,7 +24,7 @@ import Text.Blaze (toValue, (!)) import Text.Blaze.Html.Renderer.Utf8 import Text.Blaze.Html5 (Html, a, body, div, docTypeHtml, h1, h2, h3, head, link, meta, p, span, title, toHtml) -import Text.Blaze.Html5.Attributes (charset, class_, content, href, id, name, rel, style) +import Text.Blaze.Html5.Attributes (charset, class_, content, href, id, name, rel) import Text.Blaze.Internal (Attribute, AttributeValue, attribute) import qualified Data.ByteString.Lazy as LazyByteString @@ -84,7 +84,7 @@ renderPage pageTitle bodyHtml = renderHtml $ docTypeHtml $ do body $ div ! id "content" $ do bodyHtml - p ! style "text-align:right;font-size:smaller;margin-top:2em" $ "Hoff v" <> toHtml (showVersion version) + p ! class_ "version" $ "Hoff v" <> toHtml (showVersion version) -- Integrity attribute for subresource integrity. Blaze doesn't have -- this yet, but this is what their implementation would look like. diff --git a/static/style.css b/static/style.css index 2365b823..a45980b5 100644 --- a/static/style.css +++ b/static/style.css @@ -122,3 +122,10 @@ span.review a { color: #8c8e81; } + +p.version +{ + text-align: right; + font-size: smaller; + margin-top: 2em; +}