From 407866c433735e510b6bde2d06e2a18cff22c470 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 9 Oct 2020 17:51:07 +0100
Subject: hlinting

---
 src/Xmobar/App/EventLoop.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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

diff --git a/src/Xmobar/App/EventLoop.hs b/src/Xmobar/App/EventLoop.hs
index 1c77ac1..4a0db46 100644
--- a/src/Xmobar/App/EventLoop.hs
+++ b/src/Xmobar/App/EventLoop.hs
@@ -70,7 +70,7 @@ runX :: XConf -> X () -> IO ()
 runX xc f = runReaderT f xc
 
 newRefreshLock :: IO (TMVar ())
-newRefreshLock = atomically $ newTMVar ()
+newRefreshLock = newTMVarIO ()
 
 refreshLock :: TMVar () -> IO a -> IO a
 refreshLock var = bracket_ lock unlock
@@ -95,7 +95,7 @@ startLoop xcfg@(XConf _ _ w _ _ _ _) sig pauser vs = do
 #ifdef XFT
     xftInitFtLibrary
 #endif
-    tv <- atomically $ newTVar []
+    tv <- newTVarIO []
     _ <- forkIO (handle (handler "checker") (checker tv [] vs sig pauser))
 #ifdef THREADED_RUNTIME
     _ <- forkOS (handle (handler "eventer") (eventer sig))
@@ -238,10 +238,10 @@ startCommand :: TMVar SignalType
              -> (Runnable,String,String)
              -> IO ([Async ()], TVar String)
 startCommand sig (com,s,ss)
-    | alias com == "" = do var <- atomically $ newTVar is
+    | alias com == "" = do var <- newTVarIO is
                            atomically $ writeTVar var (s ++ ss)
                            return ([], var)
-    | otherwise = do var <- atomically $ newTVar is
+    | otherwise = do var <- newTVarIO is
                      let cb str = atomically $ writeTVar var (s ++ str ++ ss)
                      a1 <- async $ start com cb
                      a2 <- async $ trigger com $ maybe (return ())
-- 
cgit v1.2.3