summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11/CairoDraw.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/X11/CairoDraw.hs')
-rw-r--r--src/Xmobar/X11/CairoDraw.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Xmobar/X11/CairoDraw.hs b/src/Xmobar/X11/CairoDraw.hs
index feb4448..102e4ad 100644
--- a/src/Xmobar/X11/CairoDraw.hs
+++ b/src/Xmobar/X11/CairoDraw.hs
@@ -238,7 +238,7 @@ drawBoxes dctx surf ((from, to, b):(from', to', b'):bxs) =
if to < from' || b /= b'
then do drawBoxes' dctx surf (from, to, b)
drawBoxes dctx surf $ (from', to', b'):bxs
- else do drawBoxes dctx surf $ (from, to', b'):bxs
+ else drawBoxes dctx surf $ (from, to', b'):bxs
drawBoxes dctx surf [bi] = drawBoxes' dctx surf bi