summaryrefslogtreecommitdiffhomepage
path: root/src
diff options
context:
space:
mode:
authorAlexander Polakov <plhk@sdf.org>2013-01-27 04:18:42 +0400
committerAlexander Polakov <plhk@sdf.org>2013-01-27 04:37:05 +0400
commitc0fb6ff053d798a98705073f7ef7bf6249ecbe9a (patch)
tree873adf1f1f94c049f30ed7274d41f1957b9da626 /src
parentcfd729999901c39f6e0aac1c271d56ae6e704d3e (diff)
downloadxmobar-c0fb6ff053d798a98705073f7ef7bf6249ecbe9a.tar.gz
xmobar-c0fb6ff053d798a98705073f7ef7bf6249ecbe9a.tar.bz2
Some tabs slipped in, reindent
Diffstat (limited to 'src')
-rw-r--r--src/XUtil.hsc20
1 files 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 ()