Data.hs

{-# LANGUAGE OverloadedStrings #-}
module Eventlog.Data (generateJson, generateJsonValidate ) where

import Prelude hiding (readFile)
import Data.Aeson (Value(..), (.=), object)

import Eventlog.Args (Args(..))
import Eventlog.Bands (bands)
import qualified Eventlog.Events as E
import qualified Eventlog.HeapProf as H
import Eventlog.Prune (prune)
import Eventlog.Vega
import Eventlog.Types (Header, ProfData(..))

generateJsonValidate :: (ProfData -> IO ()) -> FilePath -> Args -> IO (Header, Value)
generateJsonValidate validate file a = do
  let chunk = if heapProfile a then H.chunk else E.chunk a
  dat@(ProfData h totals fs traces) <- chunk file
  validate dat
  let keeps = prune a totals
      combinedJson = object [
          "samples" .= bandsToVega keeps (bands h keeps fs)
        , "traces"  .= tracesToVega traces
        ]
  return (h, combinedJson)

generateJson :: FilePath -> Args -> IO (Header, Value)
generateJson = generateJsonValidate (const (return ()))