summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-10-01 02:58:23 +0100
committerjao <jao@gnu.org>2022-10-01 02:58:23 +0100
commitac3b8212a68052f99eba2bd74a2dd8aa9ca2dcb2 (patch)
tree85900083aec42915c3ebab1af352f48ca4f690c6 /src/Xmobar/X11
parentef380c045957413948d390c152f6401869526285 (diff)
downloadxmobar-ac3b8212a68052f99eba2bd74a2dd8aa9ca2dcb2.tar.gz
xmobar-ac3b8212a68052f99eba2bd74a2dd8aa9ca2dcb2.tar.bz2
a couple of superfluous IO usages removed
Diffstat (limited to 'src/Xmobar/X11')
-rw-r--r--src/Xmobar/X11/Loop.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/X11/Loop.hs b/src/Xmobar/X11/Loop.hs
index 721a35b..da16402 100644
--- a/src/Xmobar/X11/Loop.hs
+++ b/src/Xmobar/X11/Loop.hs
@@ -149,7 +149,7 @@ parseSegments :: C.Config -> STM.TVar [String] -> IO [[C.Segment]]
parseSegments conf v = do
s <- STM.readTVarIO v
let l:c:r:_ = s ++ repeat ""
- MR.liftIO $ mapM (CT.parseString conf) [l, c, r]
+ return $ map (CT.parseString conf) [l, c, r]
updateIconCache :: T.XConf -> [[C.Segment]] -> IO T.XConf
updateIconCache xc@(T.XConf d _ w _ c cfg) segs = do