(#817) Fix hlint remarks

Author: rexim

src/OrgMode.hs

@@ -1,18 +1,17 @@
 {-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE LambdaCase #-}
 module OrgMode (renderTable) where
 
 import qualified Data.Text as T
 import Data.List
 
-charEscapeList :: [Char]
+charEscapeList :: String
 charEscapeList = "|"
 
 renderTable :: [T.Text] -> [[T.Text]] -> T.Text
 renderTable header rows =
   T.unlines ([renderRow header, "|-"] <> map (renderRow . normalizeRow) rows)
   where
-    normalizeRow row = take (length header) (row ++ cycle [""])
+    normalizeRow row = take (length header) (row ++ repeat "")
     renderRow :: [T.Text] -> T.Text
     renderRow columns =
       "|" <> T.concat (intersperse "|" $ map escapeColumn columns) <> "|"

test/OrgModeTest.hs

@@ -10,15 +10,15 @@ spec =
   TestCase $
   assertEqual
     ""
-    ("|hello|world|foo|\n\
+    "|hello|world|foo|\n\
      \|-\n\
      \|1|2|3|\n\
      \|1|2|3|\n\
      \|1|2||\n\
      \|1|||\n\
      \||||\n\
      \|1|2|3|\n\
-     \|~|||\n") $
+     \|~|||\n" $
   renderTable
     ["hello", "world", "foo"]
     [ ["1", "2", "3"]