diff options
| author | Alexander Polakov <plhk@sdf.org> | 2013-01-27 04:46:25 +0400 |
|---|---|---|
| committer | Alexander Polakov <plhk@sdf.org> | 2013-01-27 04:46:25 +0400 |
| commit | 5c6cb344e0221b20b38ce1decf03029e9051417b (patch) | |
| tree | e7991562ec5be86174e2b3739b4302382e6b264b /src/XUtil.hsc | |
| parent | 45b08ee804b5aab0bc63af2a9f5891e7d6d414e3 (diff) | |
| download | xmobar-5c6cb344e0221b20b38ce1decf03029e9051417b.tar.gz xmobar-5c6cb344e0221b20b38ce1decf03029e9051417b.tar.bz2 | |
reindent again
Diffstat (limited to 'src/XUtil.hsc')
| -rw-r--r-- | src/XUtil.hsc | 12 |
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 () |