Use paint in renderSky
authorJoachim Breitner <mail@joachim-breitner.de>
Thu, 25 Jun 2009 09:34:43 +0000 (11:34 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Thu, 25 Jun 2009 09:34:43 +0000 (11:34 +0200)
src/Lseed/Renderer/Cairo.hs

index 703aa7e..c8ae45d 100644 (file)
@@ -218,9 +218,8 @@ renderTimeInfo timeStr = do
 renderSky :: Render ()
 renderSky = do
        -- Clear Background
-       rectangle 0 0 1 100
        setSourceRGB  0 0 1
-       fill
+       paint
 
 renderGround :: Render ()
 renderGround = do