diff options
| -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 () |