$OpenBSD: patch-Plugins_Monitors_hs,v 1.2 2010/07/17 14:55:21 kili Exp $
--- Plugins/Monitors.hs.orig	Tue Jul  6 13:08:05 2010
+++ Plugins/Monitors.hs	Tue Jul  6 13:09:37 2010
@@ -20,17 +20,17 @@ import Plugins
 
 import Plugins.Monitors.Common ( runM )
 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.Thermal
-import Plugins.Monitors.CpuFreq
-import Plugins.Monitors.CoreTemp
-import Plugins.Monitors.Disk
-import Plugins.Monitors.Top
+--import Plugins.Monitors.Thermal
+--import Plugins.Monitors.CpuFreq
+--import Plugins.Monitors.CoreTemp
+--import Plugins.Monitors.Disk
+--import Plugins.Monitors.Top
 #ifdef IWLIB
 import Plugins.Monitors.Wireless
 #endif
@@ -39,20 +39,20 @@ import Plugins.Monitors.MPD
 #endif
 
 data Monitors = Weather  Station    Args Rate
-              | Network  Interface  Args Rate
-              | Memory   Args       Rate
-              | Swap     Args       Rate
-              | Cpu      Args       Rate
-              | MultiCpu Args       Rate
+--              | Network  Interface  Args Rate
+--              | Memory   Args       Rate
+--              | Swap     Args       Rate
+--              | Cpu      Args       Rate
+--              | MultiCpu Args       Rate
               | Battery  Args       Rate
-              | BatteryP [String]   Args Rate
-              | DiskU    DiskSpec   Args Rate
-              | DiskIO   DiskSpec   Args Rate
-              | Thermal  Zone       Args Rate
-              | CpuFreq  Args       Rate
-              | CoreTemp Args       Rate
-              | TopProc  Args       Rate
-              | TopMem   Args       Rate
+--              | BatteryP [String]   Args Rate
+--              | DiskU    DiskSpec   Args Rate
+--              | DiskIO   DiskSpec   Args Rate
+--              | Thermal  Zone       Args Rate
+--              | CpuFreq  Args       Rate
+--              | CoreTemp Args       Rate
+--              | TopProc  Args       Rate
+--              | TopMem   Args       Rate
 #ifdef IWLIB
               | Wireless Interface  Args Rate
 #endif
@@ -72,20 +72,20 @@ type DiskSpec  = [(String, String)]
 
 instance Exec Monitors where
     alias (Weather  s _ _) = s
-    alias (Network  i _ _) = i
-    alias (Thermal  z _ _) = z
-    alias (Memory     _ _) = "memory"
-    alias (Swap       _ _) = "swap"
-    alias (Cpu        _ _) = "cpu"
-    alias (MultiCpu   _ _) = "multicpu"
+--    alias (Network  i _ _) = i
+--    alias (Thermal  z _ _) = z
+--    alias (Memory     _ _) = "memory"
+--    alias (Swap       _ _) = "swap"
+--    alias (Cpu        _ _) = "cpu"
+--    alias (MultiCpu   _ _) = "multicpu"
     alias (Battery    _ _) = "battery"
-    alias (BatteryP  _ _ _)= "battery"
-    alias (CpuFreq    _ _) = "cpufreq"
-    alias (TopProc    _ _) = "top"
-    alias (TopMem     _ _) = "topmem"
-    alias (CoreTemp   _ _) = "coretemp"
-    alias (DiskU    _ _ _) = "disku"
-    alias (DiskIO   _ _ _) = "diskio"
+--    alias (BatteryP  _ _ _)= "battery"
+--    alias (CpuFreq    _ _) = "cpufreq"
+--    alias (TopProc    _ _) = "top"
+--    alias (TopMem     _ _) = "topmem"
+--    alias (CoreTemp   _ _) = "coretemp"
+--    alias (DiskU    _ _ _) = "disku"
+--    alias (DiskIO   _ _ _) = "diskio"
 #ifdef IWLIB
     alias (Wireless i _ _) = i ++ "wi"
 #endif
@@ -93,20 +93,20 @@ instance Exec Monitors where
     alias (MPD        _ _) = "mpd"
 #endif
     start (Weather  s a r) = runM (a ++ [s]) weatherConfig  runWeather    r
-    start (Network  i a r) = runM (a ++ [i]) netConfig      runNet        r
-    start (Thermal  z a r) = runM (a ++ [z]) thermalConfig  runThermal    r
-    start (Memory     a r) = runM a          memConfig      runMem        r
-    start (Swap       a r) = runM a          swapConfig     runSwap       r
-    start (Cpu        a r) = runM a          cpuConfig      runCpu        r
-    start (MultiCpu   a r) = runM a          multiCpuConfig runMultiCpu   r
+--    start (Network  i a r) = runM (a ++ [i]) netConfig      runNet        r
+--    start (Thermal  z a r) = runM (a ++ [z]) thermalConfig  runThermal    r
+--    start (Memory     a r) = runM a          memConfig      runMem        r
+--    start (Swap       a r) = runM a          swapConfig     runSwap       r
+--    start (Cpu        a r) = runM a          cpuConfig      runCpu        r
+--    start (MultiCpu   a r) = runM a          multiCpuConfig runMultiCpu   r
     start (Battery    a r) = runM a          battConfig     runBatt       r
-    start (BatteryP s a r) = runM a          battConfig    (runBatt' s)   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) = runM a          diskIOConfig  (runDiskIO s)  r
-    start (TopMem     a r) = runM a          topMemConfig   runTopMem     r
-    start (TopProc    a r) = startTop a r
+--    start (BatteryP s a r) = runM a          battConfig    (runBatt' s)   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) = runM a          diskIOConfig  (runDiskIO s)  r
+--    start (TopMem     a r) = runM a          topMemConfig   runTopMem     r
+--    start (TopProc    a r) = startTop a r
 #ifdef IWLIB
     start (Wireless i a r) = runM (a ++ [i]) wirelessConfig runWireless   r
 #endif