Merge #176: Use a proper class and fix version rendering

Approved-by: rudymatela Auto-deploy: false
channable · Aug 24, 2022 · 8caf09a · 8caf09a
2 parents 95a4ac9 + 76f76a9
commit 8caf09a
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git 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
@@ -122,3 +122,10 @@ span.review a
 {
   color: #8c8e81;
 }
+
+p.version
+{
+  text-align: right;
+  font-size: smaller;
+  margin-top: 2em;
+}