diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-08 12:10:33 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-08 12:10:33 +0200 |
| commit | 39820c0004230f4df7e256bc83ec1c9578f94a8d (patch) | |
| tree | de263f0d05be28e81d2acb90cfb7a6ab589f93b9 /Monitors/Mem.hs | |
| parent | c88df2b5d3cabc8e8171a422a48d0f811549f512 (diff) | |
| download | xmobar-39820c0004230f4df7e256bc83ec1c9578f94a8d.tar.gz xmobar-39820c0004230f4df7e256bc83ec1c9578f94a8d.tar.bz2 | |
monitors are now run internally
darcs-hash:20070708101033-d6583-495a895544a1fc84d4d69f52a7f26dd42b6c8af4.gz
Diffstat (limited to 'Monitors/Mem.hs')
| -rw-r--r-- | Monitors/Mem.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/Monitors/Mem.hs b/Monitors/Mem.hs index 87f53b1..41f496d 100644 --- a/Monitors/Mem.hs +++ b/Monitors/Mem.hs @@ -12,14 +12,14 @@ -- ----------------------------------------------------------------------------- -module Main where +module Monitors.Mem where import Monitors.Common import Data.IORef -monitorConfig :: IO MConfig -monitorConfig = +memConfig :: IO MConfig +memConfig = do lc <- newIORef "#BFBFBF" l <- newIORef 300 nc <- newIORef "#00FF00" @@ -59,7 +59,9 @@ runMem _ = l <- formatMem m parseTemplate l +{- main :: IO () main = do let af = runMem [] runMonitor monitorConfig af runMem +-}
\ No newline at end of file |