diff options
| author | Alexander Polakov <plhk@sdf.org> | 2013-01-27 04:35:38 +0400 |
|---|---|---|
| committer | Alexander Polakov <plhk@sdf.org> | 2013-01-27 04:38:35 +0400 |
| commit | 45b08ee804b5aab0bc63af2a9f5891e7d6d414e3 (patch) | |
| tree | 95bd7188708eeb695d39b758982bf2b4f7b78bb8 | |
| parent | c0fb6ff053d798a98705073f7ef7bf6249ecbe9a (diff) | |
| download | xmobar-45b08ee804b5aab0bc63af2a9f5891e7d6d414e3.tar.gz xmobar-45b08ee804b5aab0bc63af2a9f5891e7d6d414e3.tar.bz2 | |
Add finalizer for the icon pixmap
| -rw-r--r-- | src/XUtil.hsc | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/XUtil.hsc b/src/XUtil.hsc index 28569da..bc43864 100644 --- a/src/XUtil.hsc +++ b/src/XUtil.hsc @@ -167,6 +167,7 @@ loadBitmap d w p = do 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 |