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

prettyfiing

Browse source
This commit is contained in:
nek0 2016-11-08 04:34:26 +01:00
parent 678c830e33
commit 298ad4076b
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Affection.hs
View file

@ -41,7 +41,8 @@ withAffection conf@AffectionConfig{..} = do
execTime <- newMVar =<< getTime Monotonic execTime <- newMVar =<< getTime Monotonic
window <- SDL.createWindow windowTitle windowConfig window <- SDL.createWindow windowTitle windowConfig
oldSurf@(SDL.Surface ptr vect) <- SDL.getWindowSurface window oldSurf@(SDL.Surface ptr vect) <- SDL.getWindowSurface window
surface <- (\x -> return $ SDL.Surface x Nothing) =<< Raw.convertSurfaceFormat ptr Raw.SDL_PIXELFORMAT_ABGR8888 0 surface <- (\x -> return $ SDL.Surface x Nothing) =<<
Raw.convertSurfaceFormat ptr Raw.SDL_PIXELFORMAT_ABGR8888 0
initContainer <- return . (\x -> AffectionData initContainer <- return . (\x -> AffectionData
{ quitEvent = False { quitEvent = False
, userState = x , userState = x