diff options
| author | Vincent Ambo <tazjin@google.com> | 2019-08-25T22·06+0100 |
|---|---|---|
| committer | Vincent Ambo <tazjin@google.com> | 2019-08-25T22·07+0100 |
| commit | 1247848d76712bad1e47b2b67969db3456f04e75 (patch) | |
| tree | 6f10329c2e2eec1ac4284dfec70676b1c5080031 /services/tazblog/src/Blog.hs | |
| parent | 561ed1fbbb624ddc51f5a97f4a81354e458e64cd (diff) | |
refactor(tazblog): Implement HLint lints in all files r/64
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 29fac37ac7..0a53b5f2fb 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> |