diff options
| author | jao <jao@gnu.org> | 2022-02-04 03:34:48 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-02-04 03:34:48 +0000 |
| commit | 57e8e23ec7b81b0a680dd9decc70bbf98892abab (patch) | |
| tree | e2e63f3ce4fe65e59fcac3645af769829f108c59 /src/Xmobar/App/Main.hs | |
| parent | c1b6c382d8b020238e64c811bcc6f905f0f5390d (diff) | |
| download | xmobar-57e8e23ec7b81b0a680dd9decc70bbf98892abab.tar.gz xmobar-57e8e23ec7b81b0a680dd9decc70bbf98892abab.tar.bz2 | |
Refactoring: event loop handling simplifications
Diffstat (limited to 'src/Xmobar/App/Main.hs')
| -rw-r--r-- | src/Xmobar/App/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Xmobar/App/Main.hs b/src/Xmobar/App/Main.hs index 52cdca5..489bcd0 100644 --- a/src/Xmobar/App/Main.hs +++ b/src/Xmobar/App/Main.hs @@ -29,13 +29,13 @@ import Control.Monad (unless) import Xmobar.App.Config import Xmobar.Config.Types import Xmobar.Config.Parse -import qualified Xmobar.X11.Loop as X11 -import qualified Xmobar.Text.Loop as Text +import Xmobar.X11.Loop (x11Loop) +import Xmobar.Text.Loop (textLoop) import Xmobar.App.Opts (recompileFlag, verboseFlag, getOpts, doOpts) import Xmobar.App.Compile (recompile, trace) xmobar :: Config -> IO () -xmobar cfg = if textOutput cfg then Text.loop cfg else X11.loop cfg +xmobar cfg = if textOutput cfg then textLoop cfg else x11Loop cfg configFromArgs :: Config -> IO Config configFromArgs cfg = getArgs >>= getOpts >>= doOpts cfg . fst |