Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
GNU Generation
GnuPaste
Commits
b37e8127
Commit
b37e8127
authored
Dec 25, 2020
by
Antoine Fontaine
🎱
Browse files
Add comment to link to our gitlab in the html
parent
7d1ec0cf
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Paste/Homepage.hs
View file @
b37e8127
...
...
@@ -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"
)
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment