added home button to author page

Author: wilfreddenton

src/Lib/Server/Template.hs

@@ -103,6 +103,9 @@ instance ToHtml AuthorTemplate where
       script_ $ "window.PUBLIC_KEY = `" <> pgpKey <> "`"
     body_ $ do
       container_ $ do
+        row_ . col_ $ do
+          div_ [style_ "margin-bottom: 1rem"] $ do
+            a_ [href_ "/"] "home"
         row_ . col_ $ do
           h3_ "PGP Private Key"
           textarea_ [id_ "private-key", type_ "text", name_ "private-key", placeholder_ "PGP Private Key"] ""