summaryrefslogtreecommitdiffhomepage
path: root/Plugins/Monitors.hs
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-12 23:51:14 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-12-12 23:51:14 +0100
commitefd9bc7177c66d7bb9a994e919d915ecb5c75154 (patch)
tree8acc67d927ff801004e45a4b297b35a0953550a4 /Plugins/Monitors.hs
parent52be04baa703cb5c0263aecb61f0079230367cd0 (diff)
downloadxmobar-efd9bc7177c66d7bb9a994e919d915ecb5c75154.tar.gz
xmobar-efd9bc7177c66d7bb9a994e919d915ecb5c75154.tar.bz2
Uptime as a Monitor
Diffstat (limited to 'Plugins/Monitors.hs')
-rw-r--r--Plugins/Monitors.hs4
1 files changed, 4 insertions, 0 deletions
diff --git a/Plugins/Monitors.hs b/Plugins/Monitors.hs
index 98949cf..a19f82a 100644
--- a/Plugins/Monitors.hs
+++ b/Plugins/Monitors.hs
@@ -31,6 +31,7 @@ import Plugins.Monitors.CpuFreq
import Plugins.Monitors.CoreTemp
import Plugins.Monitors.Disk
import Plugins.Monitors.Top
+import Plugins.Monitors.Uptime
#ifdef IWLIB
import Plugins.Monitors.Wireless
#endif
@@ -53,6 +54,7 @@ data Monitors = Weather Station Args Rate
| CoreTemp Args Rate
| TopProc Args Rate
| TopMem Args Rate
+ | Uptime Args Rate
#ifdef IWLIB
| Wireless Interface Args Rate
#endif
@@ -86,6 +88,7 @@ instance Exec Monitors where
alias (CoreTemp _ _) = "coretemp"
alias (DiskU _ _ _) = "disku"
alias (DiskIO _ _ _) = "diskio"
+ alias (Uptime _ _) = "uptime"
#ifdef IWLIB
alias (Wireless i _ _) = i ++ "wi"
#endif
@@ -106,6 +109,7 @@ instance Exec Monitors where
start (DiskU s a r) = runM a diskUConfig (runDiskU s) r
start (DiskIO s a r) = runM a diskIOConfig (runDiskIO s) r
start (TopMem a r) = runM a topMemConfig runTopMem r
+ start (Uptime a r) = runM a uptimeConfig runUptime r
start (TopProc a r) = startTop a r
#ifdef IWLIB
start (Wireless i a r) = runM (a ++ [i]) wirelessConfig runWireless r