From c0fb6ff053d798a98705073f7ef7bf6249ecbe9a Mon Sep 17 00:00:00 2001
From: Alexander Polakov <plhk@sdf.org>
Date: Sun, 27 Jan 2013 04:18:42 +0400
Subject: Some tabs slipped in, reindent

---
 src/XUtil.hsc | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/src/XUtil.hsc b/src/XUtil.hsc
index f0a4b2d..28569da 100644
--- a/src/XUtil.hsc
+++ b/src/XUtil.hsc
@@ -163,21 +163,21 @@ textExtents (Xft xftfont) _ = do
 
 loadBitmap :: Display -> Drawable -> FilePath -> IO (Maybe Bitmap)
 loadBitmap d w p = do
-     exist <- doesFileExist p
-     if exist
-	then do
-	   (bw, bh, bp, _, _) <- readBitmapFile d w p
-	   return $ Just $ Bitmap bw bh bp
-	else
-	   return Nothing
+    exist <- doesFileExist p
+    if exist
+    then do
+        (bw, bh, bp, _, _) <- readBitmapFile d w p
+        return $ Just $ Bitmap bw bh bp
+    else
+        return Nothing
 
 drawBitmap :: Display -> Drawable -> XFont -> GC -> String -> String
             -> Position -> Position -> Bitmap -> IO ()
 drawBitmap d p _ gc fc bc x y i = do
     withColors d [fc, bc] $ \[fc', bc'] -> do
-        setForeground d gc fc'
-        setBackground d gc bc'
-        io $ copyPlane d (pixmap i) p gc 0 0 (width i) (height i) x (y - (fi $ height i)) 1
+    setForeground d gc fc'
+    setBackground d gc bc'
+    io $ copyPlane d (pixmap i) p gc 0 0 (width i) (height i) x (y - (fi $ height i)) 1
 
 printString :: Display -> Drawable -> XFont -> GC -> String -> String
             -> Position -> Position -> Widget -> IO ()
-- 
cgit v1.2.3