From 39820c0004230f4df7e256bc83ec1c9578f94a8d Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@ing.unitn.it>
Date: Sun, 8 Jul 2007 12:10:33 +0200
Subject: monitors are now run internally

darcs-hash:20070708101033-d6583-495a895544a1fc84d4d69f52a7f26dd42b6c8af4.gz
---
 Monitors/Batt.hs | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'Monitors/Batt.hs')

diff --git a/Monitors/Batt.hs b/Monitors/Batt.hs
index 5e89f9a..b3890c8 100644
--- a/Monitors/Batt.hs
+++ b/Monitors/Batt.hs
@@ -12,7 +12,7 @@
 --
 -----------------------------------------------------------------------------
 
-module Main where
+module Monitors.Batt where
 
 import Data.IORef
 import qualified Data.ByteString.Lazy.Char8 as B
@@ -20,8 +20,8 @@ import System.Posix.Files
 
 import Monitors.Common
 
-monitorConfig :: IO MConfig
-monitorConfig = 
+battConfig :: IO MConfig
+battConfig = 
     do lc <- newIORef "#FF0000"
        l <- newIORef 25
        nc <- newIORef "#FF0000"
@@ -79,7 +79,9 @@ runBatt _ =
        l <- formatBatt c
        parseTemplate l 
     
+{-
 main :: IO ()
 main =
     do let af = runBatt []
-       runMonitor monitorConfig af runBatt
+       runMonitor battConfig af runBatt
+-}
\ No newline at end of file
-- 
cgit v1.2.3