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/Net.hs | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

(limited to 'Monitors/Net.hs')

diff --git a/Monitors/Net.hs b/Monitors/Net.hs
index 2c7e2f0..addee47 100644
--- a/Monitors/Net.hs
+++ b/Monitors/Net.hs
@@ -1,6 +1,6 @@
 -----------------------------------------------------------------------------
 -- |
--- Module      :  Monitors.Cpu
+-- Module      :  Monitors.Net
 -- Copyright   :  (c) Andrea Rossato
 -- License     :  BSD-style (see LICENSE)
 -- 
@@ -12,7 +12,7 @@
 --
 -----------------------------------------------------------------------------
 
-module Main where
+module Monitors.Net where
 
 import Monitors.Common
 
@@ -28,8 +28,8 @@ data NetDev = NA
 interval :: Int
 interval = 500000
 
-monitorConfig :: IO MConfig
-monitorConfig = 
+netConfig :: IO MConfig
+netConfig = 
     do lc <- newIORef "#BFBFBF"
        l <- newIORef 0
        nc <- newIORef "#00FF00"
@@ -94,10 +94,13 @@ runNet nd =
               _ -> return $ NA
        printNet n
 
+
 package :: String
 package = "xmb-net"
 
+{-
 main :: IO ()
 main =
     do let f = return "No device specified"
-       runMonitor monitorConfig f runNet
+       runMonitor netConfig f runNet
+-}
\ No newline at end of file
-- 
cgit v1.2.3