From 0d3021eb601dadfa10fae30f108108894086c82c Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 28 Jan 2022 05:11:09 +0000
Subject: Basic text output, without colors, working

---
 src/Xmobar/App/TextEventLoop.hs | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

(limited to 'src/Xmobar/App/TextEventLoop.hs')

diff --git a/src/Xmobar/App/TextEventLoop.hs b/src/Xmobar/App/TextEventLoop.hs
index ae3a9e3..50ee17c 100644
--- a/src/Xmobar/App/TextEventLoop.hs
+++ b/src/Xmobar/App/TextEventLoop.hs
@@ -16,35 +16,34 @@
 --
 ------------------------------------------------------------------------------
 
-module Xmobar.App.TextEventLoop (startLoop) where
+module Xmobar.App.TextEventLoop (startTextLoop) where
 
 import Prelude hiding (lookup)
 
 import Control.Monad.Reader
 import Control.Concurrent
-import Control.Concurrent.Async (Async, async)
+import Control.Concurrent.Async (Async)
 import Control.Concurrent.STM
-import Control.Exception (bracket_, handle, SomeException(..))
+import Control.Exception (handle, SomeException(..))
 
 import Xmobar.System.Signal
 import Xmobar.Config.Types (Config)
-import Xmobar.Run.Exec
-import Xmobar.Run.Runnable
+
 import Xmobar.X11.Parsers (parseStringAsText)
 
-import Xmobar.App.CommandThreads (startCommand, refreshLockT)
+import Xmobar.App.CommandThreads (refreshLockT)
 
 #ifdef DBUS
 import Xmobar.System.DBus
 #endif
 
 -- | Starts the main event loop and threads
-startLoop :: Config
-          -> TMVar SignalType
-          -> TMVar ()
-          -> [[([Async ()], TVar String)]]
-          -> IO ()
-startLoop cfg sig pauser vs = do
+startTextLoop :: Config
+              -> TMVar SignalType
+              -> TMVar ()
+              -> [[([Async ()], TVar String)]]
+              -> IO ()
+startTextLoop cfg sig pauser vs = do
     tv <- newTVarIO []
     _ <- forkIO (handle (handler "checker") (checker tv [] vs sig pauser))
 #ifdef DBUS
-- 
cgit v1.2.3