gpah-0.0.1: src/Generics/GPAH/Date/PPrint.hs

module Generics.GPAH.Date.PPrint where

import Generics.GPAH.Date.Base
import System.IO
import qualified Data.Map as M
import Text.CSV
    
pprint :: Analysis -> FilePath -> IO ()
pprint (Analysis a1 a2 a3 a4 a5 a6 a7) fp = do
  let p = [["HackageArchiveCloneTime", a5],
           ["YearlyUpdatesToPackagesUsingSyb", show $ M.toList a1],
           ["YearlyUpdatesToPackagesUsingUniplate", show $ M.toList a2],
           ["YearlyUpdatesToPackagesUsingDerive", show $ M.toList a6],
           ["YearlyNewPackagesUsingSyb", show $ M.toList a3],
           ["YearlyNewPackagesUsingUniplate", show $ M.toList a4],
           ["YearlyNewPackagesUsingDerive", show $ M.toList a7]
          ]
      pCSV = printCSV p

  writeFile fp pCSV

  putStrLn "Date Results:\n###############"
  putStrLn pCSV