File tree Expand file tree Collapse file tree 1 file changed +2
-3
lines changed Expand file tree Collapse file tree 1 file changed +2
-3
lines changed Original file line number Diff line number Diff line change @@ -224,14 +224,13 @@ updateTexture :: (Functor m, MonadIO m)
224224 -> Maybe (Rectangle CInt ) -- ^ The area to update, Nothing for entire texture
225225 -> BS. ByteString -- ^ The raw pixel data
226226 -> CInt -- ^ The number of bytes in a row of pixel data, including padding between lines
227- -> m Texture
228- updateTexture tex @ (Texture t) rect pixels pitch = do
227+ -> m ()
228+ updateTexture (Texture t) rect pixels pitch = do
229229 liftIO $ throwIfNeg_ " SDL.Video.updateTexture" " SDL_UpdateTexture" $
230230 maybeWith with rect $ \ rectPtr ->
231231 let (pixelForeign, _, _) = BSI. toForeignPtr pixels
232232 in withForeignPtr pixelForeign $ \ pixelsPtr ->
233233 Raw. updateTexture t (castPtr rectPtr) (castPtr pixelsPtr) pitch
234- return tex
235234
236235-- | Destroy the specified texture.
237236--
You can’t perform that action at this time.
0 commit comments