diff options
Diffstat (limited to 'Monitors/Cpu.hs')
-rw-r--r-- | Monitors/Cpu.hs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Monitors/Cpu.hs b/Monitors/Cpu.hs index ed5c11e..6f9b4fd 100644 --- a/Monitors/Cpu.hs +++ b/Monitors/Cpu.hs @@ -12,14 +12,14 @@ -- ----------------------------------------------------------------------------- -module Main where +module Monitors.Cpu where import Monitors.Common import qualified Data.ByteString.Lazy.Char8 as B import Data.IORef -monitorConfig :: IO MConfig -monitorConfig = +cpuConfig :: IO MConfig +cpuConfig = do lc <- newIORef "#BFBFBF" l <- newIORef 2 nc <- newIORef "#00FF00" @@ -65,7 +65,9 @@ runCpu _ = l <- formatCpu c parseTemplate l +{- main :: IO () main = do let af = runCpu [] - runMonitor monitorConfig af runCpu + runMonitor cpuConfig af runCpu +-}
\ No newline at end of file |