From ea075213baa7e6fe6ed519a6b5c70e7ae89a56a1 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 16 Sep 2022 00:27:37 +0100
Subject: linting and version bump

---
 src/Xmobar/X11/CairoDraw.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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