Debug.hs

{-|
Module      : MptcpAnalyzer.Merge
Description : Utilities to help debug
Maintainer  : matt
License     : GPL-3
-}
module MptcpAnalyzer.Debug
where

import Data.Proxy
import Data.Vinyl
import Frames
import Frames.CSV
-- import Data.Text
import Data.List (intercalate)

{-
check:
  - showFrame
  - printFrame
from Frames.Exploration too
-}

-- pipeToCSV
-- see https://github.com/acowley/Frames/issues/130
showRow :: (RecMapMethod Show ElField a, RecordToList a)
        => (Record a) -> String
showRow row = intercalate "\t" $ showFields row

showHeader :: forall a . (ColumnHeaders a) => Frame (Record a) -> String
showHeader frame = intercalate "\t" $ columnHeaders (Proxy :: Proxy (Record a))

viewFrame :: (RecMapMethod Show ElField a, RecordToList a, ColumnHeaders a)
          => Frame (Record a) -> IO ()
viewFrame frame = do
  putStrLn $ showHeader frame
  mapM_ (putStrLn . showRow) frame

-- writeMergedPcap :: FilePath -> MergedPcap -> IO ()
-- writeMergedPcap outPath mergedPcap = do
--   -- showReinjects frame =
--     -- unlines (intercalate sep (columnHeaders (Proxy :: Proxy (Record rs))) : rows)
--     writeFile outPath content
--     where
--       content = intercalate "," rows
--       rows = Pipes.toList (F.mapM_ (Pipes.yield . show ) mergedPcap)





--
-- embed $ writeCSV "debug.csv" (ffFrame aFrame)