diff --git a/src/Affection.hs b/src/Affection.hs index f0c0d93..460cc63 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -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