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