diff options
Diffstat (limited to 'src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs')
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs b/src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs index 90fd6d0..d8b7a3e 100644 --- a/src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs +++ b/src/Xmobar/Plugins/Monitors/MultiCoreTemp.hs @@ -60,12 +60,6 @@ options = [ Option [] ["max-icon-pattern"] "" ] --- | Parse Arguments and apply them to Options. -parseOpts :: [String] -> IO CTOpts -parseOpts argv = case getOpt Permute options argv of - (opts , _ , [] ) -> return $ foldr id defaultOpts opts - (_ , _ , errs) -> ioError . userError $ concat errs - -- | Generate Config with a default template and options. cTConfig :: IO MConfig cTConfig = mkMConfig cTTemplate cTOptions @@ -157,7 +151,7 @@ formatCT opts cTs = do let CTOpts { mintemp = minT runCT :: [String] -> Monitor String runCT argv = do cTs <- io parseCT - opts <- io $ parseOpts argv + opts <- io $ parseOptsWith options defaultOpts argv l <- formatCT opts cTs parseTemplate l |