From d5582299c7704cd94419997af6d9bd2aa0701045 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Mon, 3 Aug 2015 23:13:32 +0200
Subject: hlint

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

(limited to 'src')

diff --git a/src/Site.hs b/src/Site.hs
index 1facff6..e9f186f 100644
--- a/src/Site.hs
+++ b/src/Site.hs
@@ -104,7 +104,7 @@ renderTag tag tags = do
                                          then pure (error $ unwords ["no string value for bool field:",name])
                                          else empty)
     withEllipsis ellipsisItem xs
-      | length xs > max = [ellipsisItem] ++ takeEnd (max - 1) xs
+      | length xs > max = ellipsisItem : takeEnd (max - 1) xs
       | otherwise = xs
     takeEnd i = reverse . take i . reverse
     max = 4
@@ -116,7 +116,7 @@ tagTranslation :: String -> String
 tagTranslation = mapMaybe charTrans
   where
     charTrans c
-      | isSpace c = Just $ '-'
+      | isSpace c = Just '-'
       | isAlphaNum c = Just $ toLower c
       | otherwise = Nothing
 
-- 
cgit v1.2.3