1 files changed, 2 insertions, 2 deletions

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