diff options
| author | jao <jao@gnu.org> | 2022-02-04 00:28:40 +0000 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-02-04 00:28:40 +0000 |
| commit | ab47eb31b532c232255b2c2385160510145e40ba (patch) | |
| tree | 70f5f7faab080875b7879581f0ad21e543c1189b /src/Xmobar/App/Main.hs | |
| parent | d65979cc4fb0dc85f59b445a377958aa9569b934 (diff) | |
| download | xmobar-ab47eb31b532c232255b2c2385160510145e40ba.tar.gz xmobar-ab47eb31b532c232255b2c2385160510145e40ba.tar.bz2 | |
Xmobar.App.X11EventLoop -> Xmobar.X11.Loop
Diffstat (limited to 'src/Xmobar/App/Main.hs')
| -rw-r--r-- | src/Xmobar/App/Main.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xmobar/App/Main.hs b/src/Xmobar/App/Main.hs index 6b20158..c660a88 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 Xmobar.App.Opts (recompileFlag, verboseFlag, getOpts, doOpts) -import Xmobar.App.X11EventLoop (x11Loop) import Xmobar.App.TextEventLoop (textLoop) import Xmobar.App.Compile (recompile, trace) xmobar :: Config -> IO () -xmobar cfg = if textOutput cfg then textLoop cfg else x11Loop cfg +xmobar cfg = if textOutput cfg then textLoop cfg else X11.loop cfg configFromArgs :: Config -> IO Config configFromArgs cfg = getArgs >>= getOpts >>= doOpts cfg . fst |