diff options
| author | Sibi Prabakaran <sibi@psibi.in> | 2020-06-20 21:39:02 +0530 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2020-06-23 16:38:20 +0100 |
| commit | 28ea8d95137131e81c836ed2d446f8925518e85c (patch) | |
| tree | 16f823a3d81a4bbb22861ce46d869391ab679574 /src/Xmobar/Plugins/Monitors/Common/Run.hs | |
| parent | 148f1083c45bc66112ff18d44f4d2a43d891c5ca (diff) | |
| download | xmobar-28ea8d95137131e81c836ed2d446f8925518e85c.tar.gz xmobar-28ea8d95137131e81c836ed2d446f8925518e85c.tar.bz2 | |
Update based on feedback on the PR
Diffstat (limited to 'src/Xmobar/Plugins/Monitors/Common/Run.hs')
| -rw-r--r-- | src/Xmobar/Plugins/Monitors/Common/Run.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Xmobar/Plugins/Monitors/Common/Run.hs b/src/Xmobar/Plugins/Monitors/Common/Run.hs index 076ac07..188b02a 100644 --- a/src/Xmobar/Plugins/Monitors/Common/Run.hs +++ b/src/Xmobar/Plugins/Monitors/Common/Run.hs @@ -23,7 +23,7 @@ module Xmobar.Plugins.Monitors.Common.Run ( runM , runMLD , getArgvs , doArgs - , computePureConfig + , computeMonitorConfig , pluginOptions ) where @@ -145,10 +145,10 @@ runMLD args conf action looper detect cb = handle (cb . showException) loop showException :: SomeException -> String showException = ("error: "++) . show . flip asTypeOf undefined -computePureConfig :: [String] -> IO MConfig -> IO PureConfig -computePureConfig args mconfig = do +computeMonitorConfig :: [String] -> IO MConfig -> IO MonitorConfig +computeMonitorConfig args mconfig = do newConfig <- getMConfig args mconfig - getPureConfig newConfig + getMonitorConfig newConfig getMConfig :: [String] -> IO MConfig -> IO MConfig getMConfig args mconfig = do |