sdl2-sprite 0.0.0 → 0.0.1
raw patch · 2 files changed
+5/−3 lines, 2 files
Files
- sdl2-sprite.cabal +3/−3
- src/SDL/Sprite.hs +2/−0
sdl2-sprite.cabal view
@@ -1,5 +1,5 @@ name: sdl2-sprite-version: 0.0.0+version: 0.0.1 synopsis: Sprite previewer/animator description: View your sprites in an animated way with SDL2 homepage: https://github.com/chrisdone/sdl2-sprite#readme@@ -15,7 +15,7 @@ library hs-source-dirs: src- ghc-options: -Wall+ ghc-options: -Wall -O2 exposed-modules: SDL.Sprite build-depends: base >= 4.7 && < 5, sdl2@@ -25,7 +25,7 @@ executable sdl2-sprite hs-source-dirs: app main-is: Main.hs- ghc-options: -Wall -threaded -rtsopts -with-rtsopts=-N+ ghc-options: -Wall -threaded -rtsopts -with-rtsopts=-N -O2 build-depends: base , sdl2-sprite , sdl2
src/SDL/Sprite.hs view
@@ -60,6 +60,7 @@ } where (V2 w _) = spriteDimensions s+{-# INLINE animate #-} -- | Render the sprite at the given coordinates. render :: MonadIO m => Sprite -> V2 CInt -> m ()@@ -69,3 +70,4 @@ (spriteTexture s) (Just (spriteRectangle s)) (Just (Rectangle (P xy) (spriteDimensions s)))+{-# INLINE render #-}