diff options
| -rw-r--r-- | Commands.hs | 2 | ||||
| -rw-r--r-- | Plugins/Monitors.hs | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/Commands.hs b/Commands.hs index ce778cf..d205dbf 100644 --- a/Commands.hs +++ b/Commands.hs @@ -73,7 +73,7 @@ instance Exec Command where cb $ "Could not execute command " ++ prog --- | Work arount to the Int max bound: since threadDelay takes an Int, it +-- | Work around to the Int max bound: since threadDelay takes an Int, it -- is not possible to set a thread delay grater than about 45 minutes. -- With a little recursion we solve the problem. tenthSeconds :: Int -> IO () diff --git a/Plugins/Monitors.hs b/Plugins/Monitors.hs index a19f82a..9887d74 100644 --- a/Plugins/Monitors.hs +++ b/Plugins/Monitors.hs @@ -103,11 +103,11 @@ instance Exec Monitors where 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 (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 (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 |