0.2.5 initial commit

Makefile incomplete
This commit is contained in:
Aiden McClelland
2020-11-23 13:44:28 -07:00
commit 95d3845906
503 changed files with 53448 additions and 0 deletions

View File

@@ -0,0 +1,22 @@
module Live.Metrics where
import Lib.External.Metrics.Df
import Lib.External.Metrics.Iotop
import Lib.External.Metrics.ProcDev
import Lib.External.Metrics.Top
import Startlude
parseIotopOutput :: IO IotopMetrics
parseIotopOutput = parseIotop <$> readFile "./test/Live/iotop.sample"
parseTopOutput :: IO TopMetrics
parseTopOutput = parseTop <$> readFile "./test/Live/top.sample"
parseDfOutput :: IO DfMetrics
parseDfOutput = parseDf <$> readFile "./test/Live/df.sample"
parseProcDevOutput :: IO (UTCTime, ProcDevMomentStats)
parseProcDevOutput = do
res <- readFile "./test/Live/procDev.sample"
now <- getCurrentTime
pure $ parseProcDev now res