[Fencommits] fenfire-hs: make image vob compile

[Benja Fallenstein]

Fri Mar  9 16:51:50 EET 2007  Benja Fallenstein <benja.fallenstein at gmail.com>
  * make image vob compile
diff -rN -u old-fenfire-hs/Vobs.fhs new-fenfire-hs/Vobs.fhs
--- old-fenfire-hs/Vobs.fhs	2007-03-09 16:52:07.000000000 +0200
+++ new-fenfire-hs/Vobs.fhs	2007-03-09 16:52:07.000000000 +0200
@@ -214,7 +214,8 @@
 image file = unsafePerformIO $ C.withImageSurfaceFromPNG file $ \surface -> do
     w <- C.renderWith surface $ C.imageSurfaceGetWidth surface
     h <- C.renderWith surface $ C.imageSurfaceGetHeight surface
-    return $ renderable (realToFrac w, realToFrac h) $ withSurface #surface $ fill extents
+    return $ changeSize (const (realToFrac w, realToFrac h)) $ 
+        withSurface #surface $ fill extents
 
 fadedColor :: Ord k => Endo (Cx k Color)
 fadedColor c = liftM3 interpolate (asks rcFade) (asks rcFadeColor) c