summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorAlexander Polakov <plhk@sdf.org>2013-02-09 22:19:22 +0400
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-03-13 21:11:47 +0100
commita4aaab2259a220debe4c3785400d5ebb28af98a3 (patch)
treeab1370d5d5839fbb27816bb245f0ae291727beb0 /src
parentfcdc939572cfece0a8ce99f9164aa85f217ef369 (diff)
downloadxmobar-a4aaab2259a220debe4c3785400d5ebb28af98a3.tar.gz
xmobar-a4aaab2259a220debe4c3785400d5ebb28af98a3.tar.bz2
Use fmap instead of >>=
Diffstat (limited to 'src')
-rw-r--r--src/Xmobar.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar.hs b/src/Xmobar.hs
index 25d8fab..74c4b4d 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -259,7 +259,7 @@ updateActions conf (Rectangle _ _ wid _) ~[left,center,right] = do
R -> remWidth xs
L -> offs
- fmap concat $ mapM (\(a,xs) -> strLn xs >>= \xs' -> return $ partCoord (offset a xs') xs') $
+ fmap concat $ mapM (\(a,xs) -> fmap (\xs' -> partCoord (offset a xs') xs') $ strLn xs) $
zip [L,C,R] [left,center,right]
-- $print