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

refactor(tazblog): Implement HLint lints in all files

Browse source
This commit is contained in:
Vincent Ambo 2019-08-25 23:06:48 +01:00
parent 561ed1fbbb
commit 1247848d76
5 changed files with 13 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

4
services/tazblog/src/Blog.hs
View file

@ -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>