diff options
Diffstat (limited to 'services/tazblog/src/Blog.hs')
| -rw-r--r-- | services/tazblog/src/Blog.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/services/tazblog/src/Blog.hs b/services/tazblog/src/Blog.hs index 29fac37ac778..0a53b5f2fbf4 100644 --- a/services/tazblog/src/Blog.hs +++ b/services/tazblog/src/Blog.hs @@ -95,7 +95,7 @@ $maybe links <- pageLinks ^{links} |] where - linkElems Entry {..} = concat $ ["/", show entryId] + linkElems Entry {..} = "/" ++ show entryId showLinks :: Maybe Int -> Html showLinks (Just i) = @@ -134,7 +134,7 @@ renderEntry e@Entry {..} = showError :: Text -> Text -> Html showError title err = blogTemplate (": " <> title) - $ [shamlet| + [shamlet| <p>:( <p>#{err} <hr> |