diff options
| author | jao <jao@gnu.org> | 2018-06-24 01:54:28 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2018-06-24 01:54:28 +0100 |
| commit | 741b803b943430a262ec36658b13830733e17b48 (patch) | |
| tree | da40a2aa66691e494e4c22cba24eb5d1dc0b71e7 /src/Xmobar.hs | |
| parent | 9c5f9b26bc19975f2486a11941821089ee62562a (diff) | |
| download | xmobar-741b803b943430a262ec36658b13830733e17b48.tar.gz xmobar-741b803b943430a262ec36658b13830733e17b48.tar.bz2 | |
hlinting
Diffstat (limited to 'src/Xmobar.hs')
| -rw-r--r-- | src/Xmobar.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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] |