Commit b37e8127 authored by Antoine Fontaine's avatar Antoine Fontaine 🎱
Browse files

Add comment to link to our gitlab in the html

parent 7d1ec0cf
......@@ -26,7 +26,7 @@ import Paste.Styles
-- | The homepage that serves as an instruction manual, and a post page for
-- people using browsers.
homepage :: Text -> Html
homepage url = docTypeHtml ! lang "en" $ do
homepage url = (docTypeHtml ! lang "en" $ do
H.head $ do
H.title "GnuPaste"
H.style (toHtml stylesheet)
......@@ -93,5 +93,7 @@ homepage url = docTypeHtml ! lang "en" $ do
homepageJS
) >> preEscapedToHtml ("\n\n<!-- https://gitlab.gnugen.ch/gnugen/gnupaste/ -->"::Text)
homepageJS :: Html
homepageJS = script $ toHtml $ decodeUtf8 $(embedFile "src/Paste/homepage.js")
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