some refinement

This commit is contained in:
nek0 2016-12-21 00:16:21 +01:00
parent 179e2f9516
commit 52da5e54bd

View file

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