diff options
| author | Ben Boeckel <mathstuf@gmail.com> | 2012-06-09 00:36:23 -0400 |
|---|---|---|
| committer | Ben Boeckel <mathstuf@gmail.com> | 2012-06-09 00:37:01 -0400 |
| commit | e513f7149000dfec4549d0d9f0a3add647e06c95 (patch) | |
| tree | 861fa0ecffdf03f5b18b3d0611e234880a596f92 /src/Plugins/Monitors/Common.hs | |
| parent | ad5439d9bd4b9822bdbe26d4102665ada487c756 (diff) | |
| download | xmobar-e513f7149000dfec4549d0d9f0a3add647e06c95.tar.gz xmobar-e513f7149000dfec4549d0d9f0a3add647e06c95.tar.bz2 | |
Add runM variant which takes a blocking call
This allows monitors to define update times other than time-based.
Diffstat (limited to 'src/Plugins/Monitors/Common.hs')
| -rw-r--r-- | src/Plugins/Monitors/Common.hs | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/Plugins/Monitors/Common.hs b/src/Plugins/Monitors/Common.hs index c9f0843..7fcab1f 100644 --- a/src/Plugins/Monitors/Common.hs +++ b/src/Plugins/Monitors/Common.hs @@ -23,6 +23,7 @@ module Plugins.Monitors.Common ( , getConfigValue , mkMConfig , runM + , runMB , io -- * Parsers -- $parsers @@ -207,9 +208,13 @@ doConfigOptions (o:oo) = runM :: [String] -> IO MConfig -> ([String] -> Monitor String) -> Int -> (String -> IO ()) -> IO () -runM args conf action r cb = handle (cb . showException) loop +runM args conf action r = runMB args conf action (tenthSeconds r) + +runMB :: [String] -> IO MConfig -> ([String] -> Monitor String) + -> IO () -> (String -> IO ()) -> IO () +runMB args conf action wait cb = handle (cb . showException) loop where ac = doArgs args action - loop = conf >>= runReaderT ac >>= cb >> tenthSeconds r >> loop + loop = conf >>= runReaderT ac >>= cb >> wait >> loop showException :: SomeException -> String showException = ("error: "++) . show . flip asTypeOf undefined |