From b4f0f35ef118064bc7829b6224a896b448a37bc4 Mon Sep 17 00:00:00 2001
From: Sibi Prabakaran <sibi@psibi.in>
Date: Sun, 14 Jun 2020 09:46:47 +0530
Subject: Optimize CPU monitor

---
 bench/main.hs | 18 +++---------------
 1 file changed, 3 insertions(+), 15 deletions(-)

(limited to 'bench')

diff --git a/bench/main.hs b/bench/main.hs
index 205acc8..b6f4c1a 100644
--- a/bench/main.hs
+++ b/bench/main.hs
@@ -18,24 +18,12 @@ main = do
 runMonitor :: MConfig -> Monitor a -> IO a
 runMonitor config r = runReaderT r config
 
-data CpuArguments = CpuArguments {
-      cpuRef :: CpuDataRef,
-      cpuMConfig :: MConfig,
-      cpuArgs :: [String]
-    }
-
 mkCpuArgs :: IO CpuArguments
-mkCpuArgs = do
-  cpuRef <- newIORef []
-  _ <- parseCpu cpuRef
-  cpuMConfig <- cpuConfig
-  let cpuArgs = ["-L","3","-H","50","--normal","green","--high","red"]
-  pure $ CpuArguments {..}
-
+mkCpuArgs = getArguments ["-L","3","-H","50","--normal","green","--high","red", "-t", "Cpu: <total>%"]
+  
 -- | The action which will be benchmarked
 cpuAction :: CpuArguments -> IO String
-cpuAction CpuArguments{..} = runMonitor cpuMConfig (doArgs cpuArgs (runCpu cpuRef) (\_ -> return True))
-
+cpuAction = runCpu
 
 cpuBenchmark :: CpuArguments -> Benchmarkable
 cpuBenchmark cpuParams = nfIO $ cpuAction cpuParams
-- 
cgit v1.2.3