summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/App/Main.hs
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-02-04 03:34:48 +0000
committerjao <jao@gnu.org>2022-02-04 03:34:48 +0000
commit57e8e23ec7b81b0a680dd9decc70bbf98892abab (patch)
treee2e63f3ce4fe65e59fcac3645af769829f108c59 /src/Xmobar/App/Main.hs
parentc1b6c382d8b020238e64c811bcc6f905f0f5390d (diff)
downloadxmobar-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.hs6
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