prettyfiing

This commit is contained in:
nek0 2016-11-08 04:34:26 +01:00
parent 678c830e33
commit 298ad4076b

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