diff options
Diffstat (limited to 'src/Xmobar/Plugins/Monitors/Cpu.hs')
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Cpu.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Cpu.hs b/src/Xmobar/Plugins/Monitors/Cpu.hs index 6befe7d..157631d 100644 --- a/src/Xmobar/Plugins/Monitors/Cpu.hs +++ b/src/Xmobar/Plugins/Monitors/Cpu.hs @@ -35,12 +35,6 @@ options = o { loadIconPattern = Just $ parseIconPattern x }) "") "" ] -parseOpts :: [String] -> IO CpuOpts -parseOpts argv = - case getOpt Permute options argv of - (o, _, []) -> return $ foldr id defaultOpts o - (_, _, errs) -> ioError . userError $ concat errs - cpuConfig :: IO MConfig cpuConfig = mkMConfig "Cpu: <total>%" @@ -77,7 +71,7 @@ formatCpu opts xs = do runCpu :: CpuDataRef -> [String] -> Monitor String runCpu cref argv = do c <- io (parseCpu cref) - opts <- io $ parseOpts argv + opts <- io $ parseOptsWith options defaultOpts argv l <- formatCpu opts c parseTemplate l |