summaryrefslogtreecommitdiffhomepage
path: root/Monitors/Batt.hs
diff options
context:
space:
mode:
authorAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-08 12:10:33 +0200
committerAndrea Rossato <andrea.rossato@ing.unitn.it>2007-07-08 12:10:33 +0200
commit39820c0004230f4df7e256bc83ec1c9578f94a8d (patch)
treede263f0d05be28e81d2acb90cfb7a6ab589f93b9 /Monitors/Batt.hs
parentc88df2b5d3cabc8e8171a422a48d0f811549f512 (diff)
downloadxmobar-39820c0004230f4df7e256bc83ec1c9578f94a8d.tar.gz
xmobar-39820c0004230f4df7e256bc83ec1c9578f94a8d.tar.bz2
monitors are now run internally
darcs-hash:20070708101033-d6583-495a895544a1fc84d4d69f52a7f26dd42b6c8af4.gz
Diffstat (limited to 'Monitors/Batt.hs')
-rw-r--r--Monitors/Batt.hs10
1 files changed, 6 insertions, 4 deletions
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