diff --git a/src/Affection.hs b/src/Affection.hs index f40438f..362427f 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -41,7 +41,8 @@ withAffection conf@AffectionConfig{..} = do execTime <- newMVar =<< getTime Monotonic window <- SDL.createWindow windowTitle windowConfig 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 { quitEvent = False , userState = x