diff options
| author | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-11 17:02:01 +0200 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@ing.unitn.it> | 2007-07-11 17:02:01 +0200 |
| commit | edb2ea166d227ea7c4bf12b33016ee82ed73543d (patch) | |
| tree | ecb34033fefad6b3a56287371f423d29e8d63478 /Monitors/Common.hs | |
| parent | 6db48566e47efcbe8e26f3077712cc08b41701d4 (diff) | |
| download | xmobar-edb2ea166d227ea7c4bf12b33016ee82ed73543d.tar.gz xmobar-edb2ea166d227ea7c4bf12b33016ee82ed73543d.tar.bz2 | |
gettin' rid of Krzysztof's object-oriented attitude...;-)
darcs-hash:20070711150201-d6583-1d4d0c9677671416d80e83de9055bdc48c5dd4ed.gz
Diffstat (limited to 'Monitors/Common.hs')
| -rw-r--r-- | Monitors/Common.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Monitors/Common.hs b/Monitors/Common.hs index 390f383..306d46f 100644 --- a/Monitors/Common.hs +++ b/Monitors/Common.hs @@ -20,7 +20,7 @@ module Monitors.Common ( , Opts (..) , setConfigValue , getConfigValue - , newConfig + , mkMConfig , runMonitor , runM , io @@ -99,13 +99,13 @@ getConfigValue :: Selector a -> Monitor a getConfigValue s = sel s -newConfig :: String +mkMConfig :: String -> String -> String -> [OptDescr Opts] -> [String] -> IO MConfig -newConfig tmpl pkg usg args exprts = +mkMConfig tmpl pkg usg args exprts = do lc <- newIORef Nothing l <- newIORef 33 nc <- newIORef Nothing |