diff --git a/examples/example02.hs b/examples/example02.hs index b3f18ec..47c0b1a 100644 --- a/examples/example02.hs +++ b/examples/example02.hs @@ -83,7 +83,6 @@ draw = do traceM "drawing" AffectionData{..} <- get let UserData{..} = userState - let SDL.Surface rawSurfacePtr _ = drawSurface SDL.V2 (CInt rw) (CInt rh) <- SDL.surfaceDimensions drawSurface let (w, h) = (fromIntegral rw, fromIntegral rh) liftIO $ clearArea foreground (GeglRectangle 0 0 w h)