From 45b08ee804b5aab0bc63af2a9f5891e7d6d414e3 Mon Sep 17 00:00:00 2001
From: Alexander Polakov <plhk@sdf.org>
Date: Sun, 27 Jan 2013 04:35:38 +0400
Subject: Add finalizer for the icon pixmap

---
 src/XUtil.hsc | 1 +
 1 file changed, 1 insertion(+)

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
-- 
cgit v1.2.3