nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

some little cleaning

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

1
examples/example02.hs
View file

@ -83,7 +83,6 @@ draw = do
traceM "drawing" traceM "drawing"
AffectionData{..} <- get AffectionData{..} <- get
let UserData{..} = userState let UserData{..} = userState
let SDL.Surface rawSurfacePtr _ = drawSurface
SDL.V2 (CInt rw) (CInt rh) <- SDL.surfaceDimensions drawSurface SDL.V2 (CInt rw) (CInt rh) <- SDL.surfaceDimensions drawSurface
let (w, h) = (fromIntegral rw, fromIntegral rh) let (w, h) = (fromIntegral rw, fromIntegral rh)
liftIO $ clearArea foreground (GeglRectangle 0 0 w h) liftIO $ clearArea foreground (GeglRectangle 0 0 w h)