Merge branch 'master' of /tmp/L-seed
[L-seed.git] / src / Lseed / Renderer / Cairo.hs
index bc2983e..fdebb57 100644 (file)
@@ -81,8 +81,7 @@ cairoObserver = do
                { obGrowingState = \scGen -> do
                        writeIORef currentGardenRef scGen
                        widgetQueueDraw canvas
-               , obFinished = \_ ->
-                       mainQuit
+               , obShutdown = mainQuit
                }
 
 render :: Double -> AnnotatedGarden -> Render ()