diff options
| author | "Vincent Ambo ext:(%22) <tazjin@me.com> | 2013-04-24T12·35+0200 |
|---|---|---|
| committer | "Vincent Ambo ext:(%22) <tazjin@me.com> | 2013-04-24T12·35+0200 |
| commit | 3a39dfc19ee59e78de73ff8fdcf8108b751ebcf8 (patch) | |
| tree | 298ec73fc908d314d0485e3506e001aa4dbc1fcf /src/Blog.hs | |
| parent | 0f1e6c2a6b19e16f5297b16a52e4cb94e121f838 (diff) | |
* small fixes that I don't remember
Diffstat (limited to 'src/Blog.hs')
| -rw-r--r-- | src/Blog.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Blog.hs b/src/Blog.hs index 3bff4460797f..fd31530c1d37 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -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| |