diff options
Diffstat (limited to 'Monitors/Net.hs')
| -rw-r--r-- | Monitors/Net.hs | 22 |
1 files changed, 7 insertions, 15 deletions
diff --git a/Monitors/Net.hs b/Monitors/Net.hs index addee47..646b15e 100644 --- a/Monitors/Net.hs +++ b/Monitors/Net.hs @@ -15,8 +15,6 @@ module Monitors.Net where import Monitors.Common - -import Data.IORef import Text.ParserCombinators.Parsec data NetDev = NA @@ -29,18 +27,12 @@ interval :: Int interval = 500000 netConfig :: IO MConfig -netConfig = - do lc <- newIORef "#BFBFBF" - l <- newIORef 0 - nc <- newIORef "#00FF00" - h <- newIORef 32 - hc <- newIORef "#FF0000" - t <- newIORef "<dev>: <rx>|<tx>" - p <- newIORef package - u <- newIORef "dev" - a <- newIORef [] - e <- newIORef ["dev", "rx", "tx"] - return $ MC nc l lc h hc t p u a e +netConfig = newConfig + "<dev>: <rx>|<tx>" -- template + package -- package + "dev" -- usage tail? + [] -- added args + ["dev", "rx", "tx"] -- available replacements fileNET :: IO String fileNET = @@ -103,4 +95,4 @@ main :: IO () main = do let f = return "No device specified" runMonitor netConfig f runNet --}
\ No newline at end of file +-} |