173 lines
7.2 KiB
Plaintext
173 lines
7.2 KiB
Plaintext
$OpenBSD: patch-src_Plugins_Monitors_hs,v 1.8 2014/10/28 17:27:15 dcoppa Exp $
|
|
--- src/Plugins/Monitors.hs.orig Sat Oct 11 20:46:25 2014
|
|
+++ src/Plugins/Monitors.hs Tue Oct 28 18:14:37 2014
|
|
@@ -21,20 +21,20 @@ import Plugins
|
|
|
|
import Plugins.Monitors.Common (runM, runMD)
|
|
import Plugins.Monitors.Weather
|
|
-import Plugins.Monitors.Net
|
|
-import Plugins.Monitors.Mem
|
|
-import Plugins.Monitors.Swap
|
|
-import Plugins.Monitors.Cpu
|
|
-import Plugins.Monitors.MultiCpu
|
|
+--import Plugins.Monitors.Net
|
|
+--import Plugins.Monitors.Mem
|
|
+--import Plugins.Monitors.Swap
|
|
+--import Plugins.Monitors.Cpu
|
|
+--import Plugins.Monitors.MultiCpu
|
|
import Plugins.Monitors.Batt
|
|
-import Plugins.Monitors.Bright
|
|
-import Plugins.Monitors.Thermal
|
|
-import Plugins.Monitors.ThermalZone
|
|
-import Plugins.Monitors.CpuFreq
|
|
-import Plugins.Monitors.CoreTemp
|
|
-import Plugins.Monitors.Disk
|
|
-import Plugins.Monitors.Top
|
|
-import Plugins.Monitors.Uptime
|
|
+--import Plugins.Monitors.Bright
|
|
+--import Plugins.Monitors.Thermal
|
|
+--import Plugins.Monitors.ThermalZone
|
|
+--import Plugins.Monitors.CpuFreq
|
|
+--import Plugins.Monitors.CoreTemp
|
|
+--import Plugins.Monitors.Disk
|
|
+--import Plugins.Monitors.Top
|
|
+--import Plugins.Monitors.Uptime
|
|
import Plugins.Monitors.CatInt
|
|
#ifdef IWLIB
|
|
import Plugins.Monitors.Wireless
|
|
@@ -51,25 +51,25 @@ import Plugins.Monitors.Mpris
|
|
#endif
|
|
|
|
data Monitors = Weather Station Args Rate
|
|
- | Network Interface Args Rate
|
|
- | DynNetwork Args Rate
|
|
- | BatteryP Args Args Rate
|
|
- | BatteryN Args Args Rate Alias
|
|
+-- | Network Interface Args Rate
|
|
+-- | DynNetwork Args Rate
|
|
+-- | BatteryP Args Args Rate
|
|
+-- | BatteryN Args Args Rate Alias
|
|
| Battery Args Rate
|
|
- | DiskU DiskSpec Args Rate
|
|
- | DiskIO DiskSpec Args Rate
|
|
- | Thermal Zone Args Rate
|
|
- | ThermalZone ZoneNo Args Rate
|
|
- | Memory Args Rate
|
|
- | Swap Args Rate
|
|
- | Cpu Args Rate
|
|
- | MultiCpu Args Rate
|
|
- | Brightness Args Rate
|
|
- | CpuFreq Args Rate
|
|
- | CoreTemp Args Rate
|
|
- | TopProc Args Rate
|
|
- | TopMem Args Rate
|
|
- | Uptime Args Rate
|
|
+-- | DiskU DiskSpec Args Rate
|
|
+-- | DiskIO DiskSpec Args Rate
|
|
+-- | Thermal Zone Args Rate
|
|
+-- | ThermalZone ZoneNo Args Rate
|
|
+-- | Memory Args Rate
|
|
+-- | Swap Args Rate
|
|
+-- | Cpu Args Rate
|
|
+-- | MultiCpu Args Rate
|
|
+-- | Brightness Args Rate
|
|
+-- | CpuFreq Args Rate
|
|
+-- | CoreTemp Args Rate
|
|
+-- | TopProc Args Rate
|
|
+-- | TopMem Args Rate
|
|
+-- | Uptime Args Rate
|
|
| CatInt Int FilePath Args Rate
|
|
#ifdef IWLIB
|
|
| Wireless Interface Args Rate
|
|
@@ -99,25 +99,25 @@ type DiskSpec = [(String, String)]
|
|
|
|
instance Exec Monitors where
|
|
alias (Weather s _ _) = s
|
|
- alias (Network i _ _) = i
|
|
- alias (DynNetwork _ _) = "dynnetwork"
|
|
- alias (Thermal z _ _) = z
|
|
- alias (ThermalZone z _ _) = "thermal" ++ show z
|
|
- alias (Memory _ _) = "memory"
|
|
- alias (Swap _ _) = "swap"
|
|
- alias (Cpu _ _) = "cpu"
|
|
- alias (MultiCpu _ _) = "multicpu"
|
|
+-- alias (Network i _ _) = i
|
|
+-- alias (DynNetwork _ _) = "dynnetwork"
|
|
+-- alias (Thermal z _ _) = z
|
|
+-- alias (ThermalZone z _ _) = "thermal" ++ show z
|
|
+-- alias (Memory _ _) = "memory"
|
|
+-- alias (Swap _ _) = "swap"
|
|
+-- alias (Cpu _ _) = "cpu"
|
|
+-- alias (MultiCpu _ _) = "multicpu"
|
|
alias (Battery _ _) = "battery"
|
|
- alias (BatteryP {})= "battery"
|
|
- alias (BatteryN _ _ _ a)= a
|
|
- alias (Brightness _ _) = "bright"
|
|
- alias (CpuFreq _ _) = "cpufreq"
|
|
- alias (TopProc _ _) = "top"
|
|
- alias (TopMem _ _) = "topmem"
|
|
- alias (CoreTemp _ _) = "coretemp"
|
|
- alias (DiskU {}) = "disku"
|
|
- alias (DiskIO {}) = "diskio"
|
|
- alias (Uptime _ _) = "uptime"
|
|
+-- alias (BatteryP {})= "battery"
|
|
+-- alias (BatteryN _ _ _ a)= a
|
|
+-- alias (Brightness _ _) = "bright"
|
|
+-- alias (CpuFreq _ _) = "cpufreq"
|
|
+-- alias (TopProc _ _) = "top"
|
|
+-- alias (TopMem _ _) = "topmem"
|
|
+-- alias (CoreTemp _ _) = "coretemp"
|
|
+-- alias (DiskU {}) = "disku"
|
|
+-- alias (DiskIO {}) = "diskio"
|
|
+-- alias (Uptime _ _) = "uptime"
|
|
alias (CatInt n _ _ _) = "cat" ++ show n
|
|
#ifdef IWLIB
|
|
alias (Wireless i _ _) = i ++ "wi"
|
|
@@ -133,27 +133,27 @@ instance Exec Monitors where
|
|
alias (Mpris1 _ _ _) = "mpris1"
|
|
alias (Mpris2 _ _ _) = "mpris2"
|
|
#endif
|
|
- start (Network i a r) = startNet i a r
|
|
- start (DynNetwork a r) = startDynNet a r
|
|
- start (Cpu a r) = startCpu a r
|
|
- start (MultiCpu a r) = startMultiCpu a r
|
|
- start (TopProc a r) = startTop a r
|
|
- start (TopMem a r) = runM a topMemConfig runTopMem r
|
|
+-- start (Network i a r) = startNet i a r
|
|
+-- start (DynNetwork a r) = startDynNet a r
|
|
+-- start (Cpu a r) = startCpu a r
|
|
+-- start (MultiCpu a r) = startMultiCpu a r
|
|
+-- start (TopProc a r) = startTop a r
|
|
+-- start (TopMem a r) = runM a topMemConfig runTopMem r
|
|
start (Weather s a r) = runMD (a ++ [s]) weatherConfig runWeather r weatherReady
|
|
- start (Thermal z a r) = runM (a ++ [z]) thermalConfig runThermal r
|
|
- start (ThermalZone z a r) =
|
|
- runM (a ++ [show z]) thermalZoneConfig runThermalZone r
|
|
- start (Memory a r) = runM a memConfig runMem r
|
|
- start (Swap a r) = runM a swapConfig runSwap r
|
|
+-- start (Thermal z a r) = runM (a ++ [z]) thermalConfig runThermal r
|
|
+-- start (ThermalZone z a r) =
|
|
+-- runM (a ++ [show z]) thermalZoneConfig runThermalZone r
|
|
+-- start (Memory a r) = runM a memConfig runMem r
|
|
+-- start (Swap a r) = runM a swapConfig runSwap r
|
|
start (Battery a r) = runM a battConfig runBatt r
|
|
- start (BatteryP s a r) = runM a battConfig (runBatt' s) r
|
|
- start (BatteryN s a r _) = runM a battConfig (runBatt' s) r
|
|
- start (Brightness a r) = runM a brightConfig runBright r
|
|
- start (CpuFreq a r) = runM a cpuFreqConfig runCpuFreq r
|
|
- start (CoreTemp a r) = runM a coreTempConfig runCoreTemp r
|
|
- start (DiskU s a r) = runM a diskUConfig (runDiskU s) r
|
|
- start (DiskIO s a r) = startDiskIO s a r
|
|
- start (Uptime a r) = runM a uptimeConfig runUptime r
|
|
+-- start (BatteryP s a r) = runM a battConfig (runBatt' s) r
|
|
+-- start (BatteryN s a r _) = runM a battConfig (runBatt' s) r
|
|
+-- start (Brightness a r) = runM a brightConfig runBright r
|
|
+-- start (CpuFreq a r) = runM a cpuFreqConfig runCpuFreq r
|
|
+-- start (CoreTemp a r) = runM a coreTempConfig runCoreTemp r
|
|
+-- start (DiskU s a r) = runM a diskUConfig (runDiskU s) r
|
|
+-- start (DiskIO s a r) = startDiskIO s a r
|
|
+-- start (Uptime a r) = runM a uptimeConfig runUptime r
|
|
start (CatInt _ s a r) = runM a catIntConfig (runCatInt s) r
|
|
#ifdef IWLIB
|
|
start (Wireless i a r) = runM a wirelessConfig (runWireless i) r
|