module Graphics.Rendering.Hieroglyph.ImageCache where import Data.Map (Map,empty) import Control.Concurrent import System.Mem.Weak import qualified Graphics.UI.Gtk as Gtk type ImageCache = MVar (Map String (Weak Gtk.Pixbuf)) initImageCache = newMVar empty