Fix right-alignment of strings

Ignore-this: c8788007de87e0832575047b9ba4780b

The alignment of right-aligned content was off by one.  Fixed that.

darcs-hash:20090731025448-18a2b-bb7b517e2a9ac57f03914051d6203a980fd9fbf9.gz

1 files changed, 1 insertions, 1 deletions

diff --git a/Xmobar.hs b/Xmobar.hs
index 1ad18e1..7dd51c0 100644
--- a/Xmobar.hs
+++ b/Xmobar.hs
@@ -277,7 +277,7 @@ printStrings dr gc fontst offs a sl@((s,c,l):xs) = do
       remWidth             = fi wid - fi totSLen
       offset               = case a of
                                C -> (remWidth + offs) `div` 2
-                               R -> remWidth - 1
+                               R -> remWidth
                                L -> offs
       (fc,bc)              = case (break (==',') c) of
                                (f,',':b) -> (f, b           )