[Haskell-cafe] Drawing an existing image into a cairo surface?