diff options
author | jao <jao@gnu.org> | 2022-12-10 18:57:18 +0000 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-12-10 18:57:18 +0000 |
commit | 09d966a58975e8322054c66941e776e5fcfa5e13 (patch) | |
tree | 5172d32276146af1160d0cbf5a1da177bececc92 | |
parent | f8363e1485f854aa5e8a5687cb503d336b4c4618 (diff) | |
download | xmobar-09d966a58975e8322054c66941e776e5fcfa5e13.tar.gz xmobar-09d966a58975e8322054c66941e776e5fcfa5e13.tar.bz2 |
off by one
-rw-r--r-- | src/Xmobar/Draw/Cairo.hs | 4 |
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 |