summaryrefslogtreecommitdiffhomepage
path: root/src/XUtil.hsc
diff options
context:
space:
mode:
Diffstat (limited to 'src/XUtil.hsc')
-rw-r--r--src/XUtil.hsc1
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