summaryrefslogtreecommitdiffhomepage
path: root/src/XUtil.hsc
diff options
context:
space:
mode:
authorAlexander Polakov <plhk@sdf.org>2013-01-27 04:46:25 +0400
committerAlexander Polakov <plhk@sdf.org>2013-01-27 04:46:25 +0400
commit5c6cb344e0221b20b38ce1decf03029e9051417b (patch)
treee7991562ec5be86174e2b3739b4302382e6b264b /src/XUtil.hsc
parent45b08ee804b5aab0bc63af2a9f5891e7d6d414e3 (diff)
downloadxmobar-5c6cb344e0221b20b38ce1decf03029e9051417b.tar.gz
xmobar-5c6cb344e0221b20b38ce1decf03029e9051417b.tar.bz2
reindent again
Diffstat (limited to 'src/XUtil.hsc')
-rw-r--r--src/XUtil.hsc12
1 files changed, 6 insertions, 6 deletions
diff --git a/src/XUtil.hsc b/src/XUtil.hsc
index bc43864..3c9f799 100644
--- a/src/XUtil.hsc
+++ b/src/XUtil.hsc
@@ -165,12 +165,12 @@ 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
- addFinalizer bp (freePixmap d bp)
- return $ Just $ Bitmap bw bh bp
- else
- return Nothing
+ then do
+ (bw, bh, bp, _, _) <- readBitmapFile d w p
+ addFinalizer bp (freePixmap d bp)
+ return $ Just $ Bitmap bw bh bp
+ else
+ return Nothing
drawBitmap :: Display -> Drawable -> XFont -> GC -> String -> String
-> Position -> Position -> Bitmap -> IO ()