Render in CSV using cassava

git-freq.cabal

@@ -29,6 +29,7 @@ common dependencies
     , text
     , parsers
     , trifecta
+    , cassava
 
 executable git-freq
   import:         dependencies, default

src/Git/Freq.hs

@@ -5,11 +5,11 @@
 module Git.Freq where
 
 import           Data.ByteString    (ByteString)
+import qualified Data.ByteString.Lazy as LBS
+import qualified Data.Csv           as Csv
 import           Data.List          (sortBy)
 import qualified Data.Map.Strict    as Map
 import           Data.Map.Strict    (Map)
-import qualified Data.Text          as T
-import qualified Data.Text.IO       as T
 import qualified Text.Trifecta.Parser as Parser
 import qualified Text.Trifecta.Result as Parser
 
@@ -65,7 +65,9 @@ swap old new m = case Map.lookup old m of
 render :: Result -> IO ()
 render r = do
   let r' = map f $ Map.toList r
-  mapM_ print r'
+  mapM_ render' r'
   where
     f :: (FileName, [Delta]) -> (FileName, Int, Int, Int)
-    f (fileName, ds) = (fileName, sum $ map added ds, sum $ map deleted ds, length ds)
+    f (fileName, ds) = (fileName, sum $ map added ds, sum $ map deleted ds, length ds)
+    render' :: (FileName, Int, Int, Int) -> IO ()
+    render' x = LBS.putStr $ Csv.encode [x]