From 1247848d76712bad1e47b2b67969db3456f04e75 Mon Sep 17 00:00:00 2001
From: Vincent Ambo <tazjin@google.com>
Date: Sun, 25 Aug 2019 23:06:48 +0100
Subject: refactor(tazblog): Implement HLint lints in all files

---
 services/tazblog/src/Blog.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'services/tazblog/src/Blog.hs')

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>
-- 
cgit 1.4.1