From 741b803b943430a262ec36658b13830733e17b48 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 24 Jun 2018 01:54:28 +0100
Subject: hlinting

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

(limited to 'src/Xmobar.hs')

diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index c6e16a6..9c6c2c6 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -2,7 +2,7 @@
 -----------------------------------------------------------------------------
 -- |
 -- Module      :  Xmobar
--- Copyright   :  (c) 2011, 2012, 2013, 2014, 2015, 2017 Jose Antonio Ortega Ruiz
+-- Copyright   :  (c) 2011, 2012, 2013, 2014, 2015, 2017, 2018 Jose Antonio Ortega Ruiz
 --                (c) 2007 Andrea Rossato
 -- License     :  BSD-style (see LICENSE)
 --
@@ -245,7 +245,7 @@ startCommand sig (com,s,ss)
 updateString :: Config -> TVar [String]
                 -> IO [[(Widget, String, Int, Maybe [Action])]]
 updateString conf v = do
-  s <- atomically $ readTVar v
+  s <- readTVarIO v
   let l:c:r:_ = s ++ repeat ""
   io $ mapM (parseString conf) [l, c, r]
 
-- 
cgit v1.2.3