summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorAlexander Polakov <plhk@sdf.org>2013-02-21 11:11:44 +0400
committerJose Antonio Ortega Ruiz <jao@gnu.org>2013-03-13 21:11:47 +0100
commite437d175774e02c8541ca02c81a4a62c2590b647 (patch)
tree143a0a3fec5a986c78955a80a3e901e00c559ff5 /src
parenta4aaab2259a220debe4c3785400d5ebb28af98a3 (diff)
downloadxmobar-e437d175774e02c8541ca02c81a4a62c2590b647.tar.gz
xmobar-e437d175774e02c8541ca02c81a4a62c2590b647.tar.bz2
Fix actions for right side of the bar
totSLen was wrong
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 74c4b4d..e61dc43 100644
--- a/src/Xmobar.hs
+++ b/src/Xmobar.hs
@@ -251,7 +251,7 @@ updateActions conf (Rectangle _ _ wid _) ~[left,center,right] = do
filter (\(a, _,_) -> a /= Nothing) $
scanl (\(_,_,x') (a,_,w') -> (a, x', x' + w')) (Nothing, 0, off) xs
- totSLen = (\(_,_,len) -> fi len) . last
+ totSLen = foldr (\(_,_,len) -> (+) len) 0
remWidth xs = fi wid - totSLen xs
offs = 1
offset a xs = case a of