linux-perf-0.3: test/count-events.hs

-- | The example program from the linux-perf.cabal file.
-- Let's run it once in a while to make sure API changes did not break it.

module Main where

import Profiling.Linux.Perf (readPerfData)
import Profiling.Linux.Perf.Types (PerfData (..))
import System.Environment (getArgs)

main :: IO ()
main = do
   args <- getArgs
   case args of
      [] -> return ()
      (file:_) -> do
         perfData <- readPerfData file
         print $ length $ perfData_events perfData