Use intercalate
authorJoachim Breitner <mail@joachim-breitner.de>
Mon, 4 Nov 2013 19:20:37 +0000 (19:20 +0000)
committerJoachim Breitner <mail@joachim-breitner.de>
Mon, 4 Nov 2013 19:20:37 +0000 (19:20 +0000)
src/Stats.hs

index 7da38ae..e12614b 100644 (file)
@@ -371,10 +371,7 @@ renderReportTSV (ListOfIntervals title dats) =
 
 renderWithDelimiter :: String -> [[String]] -> String
 renderWithDelimiter delim datasource =
-    unlines $ map (injectDelimiter delim) datasource
-
-injectDelimiter :: [a] -> [[a]] -> [a]
-injectDelimiter d = concat . intersperse d
+    unlines $ map (intercalate delim) datasource
 
 tabulate :: Bool -> [[String]] -> String
 tabulate titlerow rows = unlines $ addTitleRow $ map (intercalate " | " . zipWith (\l s -> take (l - length s) (repeat ' ') ++ s) colwidths) rows