From e437d175774e02c8541ca02c81a4a62c2590b647 Mon Sep 17 00:00:00 2001
From: Alexander Polakov <plhk@sdf.org>
Date: Thu, 21 Feb 2013 11:11:44 +0400
Subject: Fix actions for right side of the bar

 totSLen was wrong
---
 src/Xmobar.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3