some little cleaning

This commit is contained in:
nek0 2016-12-11 22:08:33 +01:00
parent 8820a6095f
commit 663ffca664
1 changed files with 0 additions and 1 deletions

View File

@ -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)