diff options
| author | Alexander Polakov <plhk@sdf.org> | 2013-01-27 04:18:42 +0400 |
|---|---|---|
| committer | Alexander Polakov <plhk@sdf.org> | 2013-01-27 04:37:05 +0400 |
| commit | c0fb6ff053d798a98705073f7ef7bf6249ecbe9a (patch) | |
| tree | 873adf1f1f94c049f30ed7274d41f1957b9da626 | |
| parent | cfd729999901c39f6e0aac1c271d56ae6e704d3e (diff) | |
| download | xmobar-c0fb6ff053d798a98705073f7ef7bf6249ecbe9a.tar.gz xmobar-c0fb6ff053d798a98705073f7ef7bf6249ecbe9a.tar.bz2 | |
Some tabs slipped in, reindent
| -rw-r--r-- | src/XUtil.hsc | 20 |
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 () |