summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--src/Xmobar/Draw/Cairo.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Xmobar/Draw/Cairo.hs b/src/Xmobar/Draw/Cairo.hs
index 417a4ea..48875ee 100644
--- a/src/Xmobar/Draw/Cairo.hs
+++ b/src/Xmobar/Draw/Cairo.hs
@@ -181,8 +181,8 @@ drawSegments dctx surf = do
#endif
(lend, as, bx) <- foldM (drawSegment dctx surf dw) (0, [], []) llyts
let [rw, cw] = map sWidth [rlyts, clyts]
- rstart = max (lend + 1) (dw - rw - 1)
- cstart = max (lend + 1) ((dw - cw) / 2.0)
+ rstart = max lend (dw - rw - 1)
+ cstart = max lend ((dw - cw) / 2.0)
cmax = rstart - 1
(_, as', bx') <- foldM (drawSegment dctx surf cmax) (cstart, as, bx) clyts
(_, as'', bx'') <- foldM (drawSegment dctx surf dw) (rstart, as', bx') rlyts