nek0/affection
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

some refinement

Browse source
This commit is contained in:
nek0 2016-12-21 00:16:21 +01:00
parent 179e2f9516
commit 52da5e54bd
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Affection.hs
View file

@ -58,13 +58,13 @@ withAffection AffectionConfig{..} = do
let (w, h) = (fromIntegral rw, fromIntegral rh) let (w, h) = (fromIntegral rw, fromIntegral rh)
stride = fromIntegral (Raw.pixelFormatBytesPerPixel pixelFormat) * w stride = fromIntegral (Raw.pixelFormatBytesPerPixel pixelFormat) * w
cpp = B.babl_components_per_pixel bablFormat cpp = B.babl_components_per_pixel bablFormat
initContainer <- return . (\x -> AffectionData initContainer <- (\x -> AffectionData
{ quitEvent = False { quitEvent = False
, userState = x , userState = x
, drawWindow = window , drawWindow = window
, drawSurface = surface , drawSurface = surface
, drawStack = [] , drawStack = []
}) =<< loadState surface }) <$> loadState surface
(_, nState) <- runStateT ( A.runState $ do (_, nState) <- runStateT ( A.runState $ do
preLoop preLoop
liftIO $ SDL.surfaceBlit surface Nothing oldSurf Nothing liftIO $ SDL.surfaceBlit surface Nothing oldSurf Nothing