summaryrefslogtreecommitdiffhomepage
path: root/Monitors/Cpu.hs
diff options
context:
space:
mode:
Diffstat (limited to 'Monitors/Cpu.hs')
-rw-r--r--Monitors/Cpu.hs10
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