maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* small fixes that I don't remember

Browse source
This commit is contained in:
"Vincent Ambo ext:(%22) 2013-04-24 14:35:25 +02:00
parent 0f1e6c2a6b
commit 3a39dfc19e
3 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Blog.hs
View file

@ -31,7 +31,7 @@ show' = pack . show
data BlogURL = BlogURL
-- blog CSS (admin is still static)
stylesheetSource = $(luciusFile "../res/blogstyle.lucius")
stylesheetSource = $(luciusFile "res/blogstyle.lucius")
blogStyle = renderCssUrl undefined stylesheetSource
-- blog HTML
blogTemplate :: BlogLang -> Text -> Html -> Html
@ -164,7 +164,7 @@ renderCommentBox cLang cId = [shamlet|
<p><input class="cInput" style="width:120px;" type="submit" value=#{cSend cLang}>
|]
where
aLink = T.concat ["/", show' cLang, "/postcomment", show' cId]
aLink = T.concat ["/", show' cLang, "/postcomment/", show' cId]
showSiteNotice :: Html
showSiteNotice = [shamlet|