From 663ffca664169ccb5bc3e01cef9b7d751459f6e3 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 11 Dec 2016 22:08:33 +0100 Subject: [PATCH] some little cleaning --- examples/example02.hs | 1 - 1 file changed, 1 deletion(-) 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)