summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins/Monitors
diff options
context:
space:
mode:
authorSibi Prabakaran <sibi@psibi.in>2020-06-13 14:52:36 +0530
committerSibi Prabakaran <sibi@psibi.in>2020-06-13 14:52:36 +0530
commit2ae720ab47213d93ffd22a40cd99b80bec1d022a (patch)
tree167797ec0c4088869a615c69ffb06cba09adf1b6 /src/Xmobar/Plugins/Monitors
parent7bc2e6b0d6372a602a450a33ba4602e4d84206eb (diff)
downloadxmobar-2ae720ab47213d93ffd22a40cd99b80bec1d022a.tar.gz
xmobar-2ae720ab47213d93ffd22a40cd99b80bec1d022a.tar.bz2
Initial support for benchmarks of the plugins
Diffstat (limited to 'src/Xmobar/Plugins/Monitors')
-rw-r--r--src/Xmobar/Plugins/Monitors/Common/Run.hs5
-rw-r--r--src/Xmobar/Plugins/Monitors/Cpu.hs2
2 files changed, 4 insertions, 3 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Common/Run.hs b/src/Xmobar/Plugins/Monitors/Common/Run.hs
index 3baa7aa..760eab1 100644
--- a/src/Xmobar/Plugins/Monitors/Common/Run.hs
+++ b/src/Xmobar/Plugins/Monitors/Common/Run.hs
@@ -22,6 +22,7 @@ module Xmobar.Plugins.Monitors.Common.Run ( runM
, runML
, runMLD
, getArgvs
+ , doArgs
) where
import Control.Exception (SomeException,handle)
@@ -35,8 +36,8 @@ import Xmobar.Run.Exec (doEveryTenthSeconds)
options :: [OptDescr Opts]
options =
[
- Option "H" ["High"] (ReqArg High "number") "The high threshold"
- , Option "L" ["Low"] (ReqArg Low "number") "The low threshold"
+ Option ['H'] ["High"] (ReqArg High "number") "The high threshold"
+ , Option ['L'] ["Low"] (ReqArg Low "number") "The low threshold"
, Option "h" ["high"] (ReqArg HighColor "color number") "Color for the high threshold: ex \"#FF0000\""
, Option "n" ["normal"] (ReqArg NormalColor "color number") "Color for the normal threshold: ex \"#00FF00\""
, Option "l" ["low"] (ReqArg LowColor "color number") "Color for the low threshold: ex \"#0000FF\""
diff --git a/src/Xmobar/Plugins/Monitors/Cpu.hs b/src/Xmobar/Plugins/Monitors/Cpu.hs
index 157631d..acb3cfd 100644
--- a/src/Xmobar/Plugins/Monitors/Cpu.hs
+++ b/src/Xmobar/Plugins/Monitors/Cpu.hs
@@ -13,7 +13,7 @@
--
-----------------------------------------------------------------------------
-module Xmobar.Plugins.Monitors.Cpu (startCpu) where
+module Xmobar.Plugins.Monitors.Cpu (startCpu, runCpu, cpuConfig, CpuDataRef, parseCpu) where
import Xmobar.Plugins.Monitors.Common
import qualified Data.ByteString.Lazy.Char8 as B