From 34bb65029f0fdcb3f88043b3b0ca6ebd46bee161 Mon Sep 17 00:00:00 2001 From: jao Date: Fri, 4 Feb 2022 00:34:44 +0000 Subject: Xmobar.App.TextEventLoop -> Xmobar.Text.Loop --- src/Xmobar/App/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Xmobar/App/Main.hs') diff --git a/src/Xmobar/App/Main.hs b/src/Xmobar/App/Main.hs index c660a88..52cdca5 100644 --- a/src/Xmobar/App/Main.hs +++ b/src/Xmobar/App/Main.hs @@ -30,12 +30,12 @@ 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.App.Opts (recompileFlag, verboseFlag, getOpts, doOpts) -import Xmobar.App.TextEventLoop (textLoop) import Xmobar.App.Compile (recompile, trace) xmobar :: Config -> IO () -xmobar cfg = if textOutput cfg then textLoop cfg else X11.loop cfg +xmobar cfg = if textOutput cfg then Text.loop cfg else X11.loop cfg configFromArgs :: Config -> IO Config configFromArgs cfg = getArgs >>= getOpts >>= doOpts cfg . fst -- cgit v1.2.3