From 34c5473dcff2e583591e2713400947aaa59f752f Mon Sep 17 00:00:00 2001 From: Sibi Prabakaran Date: Sun, 14 Jun 2020 15:42:47 +0530 Subject: More cleanup --- src/Xmobar/Plugins/Monitors/Cpu.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/Xmobar/Plugins/Monitors/Cpu.hs') diff --git a/src/Xmobar/Plugins/Monitors/Cpu.hs b/src/Xmobar/Plugins/Monitors/Cpu.hs index 02d2949..82940b0 100644 --- a/src/Xmobar/Plugins/Monitors/Cpu.hs +++ b/src/Xmobar/Plugins/Monitors/Cpu.hs @@ -114,11 +114,11 @@ data CpuData = CpuData { } convertToCpuData :: [Float] -> CpuData -convertToCpuData (u:n:s:id:iw:_) = CpuData { +convertToCpuData (u:n:s:ie:iw:_) = CpuData { cpuUser = u, cpuNice = n, cpuSystem = s, - cpuIdle = id, + cpuIdle = ie, cpuIowait = iw, cpuTotal = sum [u,n,s] } @@ -212,7 +212,7 @@ getArguments cpuArgs = do cpuParams <- computePureConfig cpuArgs cpuConfig cpuInputTemplate <- runTemplateParser cpuParams cpuAllTemplate <- runExportParser (pExport cpuParams) - nonOptions <- case getOpt Permute commonOptions cpuArgs of + nonOptions <- case getOpt Permute pluginOptions cpuArgs of (_, n, []) -> pure n (_,_,errs) -> error $ "getArguments: " <> show errs cpuOpts <- case getOpt Permute options nonOptions of -- cgit v1.2.3