From c7681d79108f6e03f5adc33ebb96f14cf9b83f16 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 19 Sep 2022 02:26:50 +0100
Subject: wee refactoring (more types in X11.Types)

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

(limited to 'src/Xmobar/X11/Bitmap.hs')

diff --git a/src/Xmobar/X11/Bitmap.hs b/src/Xmobar/X11/Bitmap.hs
index 027462d..220741e 100644
--- a/src/Xmobar/X11/Bitmap.hs
+++ b/src/Xmobar/X11/Bitmap.hs
@@ -113,7 +113,7 @@ loadBitmap d w p = do
 drawBitmap :: Display -> Drawable -> GC -> String -> String
               -> Position -> Position -> Bitmap -> IO ()
 drawBitmap d p gc fc bc x y i =
-    withColors d [fc, bc] $ \[fc', bc'] -> do
+  withColors d [fc, bc] $ \[fc', bc'] -> do
     let w = width i
         h = height i
         y' = 1 + y - fromIntegral h `div` 2
-- 
cgit v1.2.3