SDL-gfx 0.6.2.0 → 0.7.0.0

raw patch · 2 files changed

+11/−12 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Graphics/UI/SDL/Primitives.hs +9/−10
• SDL-gfx.cabal +2/−2

@@ -43,7 +43,6 @@ import Graphics.UI.SDL.General import Graphics.UI.SDL.Types import Graphics.UI.SDL.Color-import Graphics.UI.SDL.Rect import Graphics.UI.SDL.Utilities (Enum(..), intToBool, toBitmask, fromCInt, toCInt)  foreign import ccall unsafe "pixelColor" gfxPixelColor :: Ptr SurfaceStruct -> Int16 -> Int16 -> Word32 -> IO CInt@@ -66,21 +65,21 @@   foreign import ccall unsafe "rectangleColor" gfxRectangleColor :: Ptr SurfaceStruct -> Int16 -> Int16 -> Int16 -> Int16 -> Word32 -> IO CInt -rectangle :: Surface -> Rect -> Pixel -> IO Bool-rectangle surface (Rect x y w h) (Pixel c) = withForeignPtr surface $ \ptr -> -                                             intToBool (-1) (fmap fromCInt $ gfxRectangleColor ptr (fromIntegral x) (fromIntegral y) (fromIntegral w) (fromIntegral h) c)+rectangle :: Surface -> Int16 -> Int16 -> Int16 -> Int16 -> Pixel -> IO Bool+rectangle surface x1 y1 x2 y2 (Pixel c) = withForeignPtr surface $ \ptr ->+                                             intToBool (-1) (fmap fromCInt $ gfxRectangleColor ptr (fromIntegral x1) (fromIntegral y1) (fromIntegral x2) (fromIntegral y2) c)  foreign import ccall unsafe "boxColor" gfxBoxColor :: Ptr SurfaceStruct -> Int16 -> Int16 -> Int16 -> Int16 -> Word32 -> IO CInt -box :: Surface -> Rect -> Pixel -> IO Bool-box surface (Rect x y w h) (Pixel c) = withForeignPtr surface $ \ptr -> -                                       intToBool (-1) (fmap fromCInt $ gfxBoxColor ptr (fromIntegral x) (fromIntegral y) (fromIntegral w) (fromIntegral h) c)+box :: Surface -> Int16 -> Int16 -> Int16 -> Int16  -> Pixel -> IO Bool+box surface x1 y1 x2 y2 (Pixel c) = withForeignPtr surface $ \ptr ->+                                       intToBool (-1) (fmap fromCInt $ gfxBoxColor ptr (fromIntegral x1) (fromIntegral y1) (fromIntegral x2) (fromIntegral y2) c)  foreign import ccall unsafe "roundedBoxColor" gfxRoundedBoxColor :: Ptr SurfaceStruct -> Int16 -> Int16 -> Int16 -> Int16 -> Int16 -> Word32 -> IO CInt -roundedBox :: Surface -> Rect -> Int16 -> Pixel -> IO Bool-roundedBox surface (Rect x y w h) rad (Pixel c) = withForeignPtr surface $ \ptr ->-                                                  intToBool (-1) (fmap fromCInt $ gfxRoundedBoxColor ptr (fromIntegral x) (fromIntegral y) (fromIntegral w) (fromIntegral h) rad c)+roundedBox :: Surface -> Int16 -> Int16 -> Int16 -> Int16 -> Int16 -> Pixel -> IO Bool+roundedBox surface x1 y1 x2 y2 rad (Pixel c) = withForeignPtr surface $ \ptr ->+                                                  intToBool (-1) (fmap fromCInt $ gfxRoundedBoxColor ptr (fromIntegral x1) (fromIntegral y1) (fromIntegral x2) (fromIntegral x2) rad c)  foreign import ccall unsafe "lineColor" gfxLineColor :: Ptr SurfaceStruct -> Int16 -> Int16 -> Int16 -> Int16 -> Word32 -> IO CInt 

@@ -1,9 +1,9 @@ Cabal-Version:      >= 1.6 Name:               SDL-gfx-Version:            0.6.2.0+Version:            0.7.0.0 Maintainer:         Francesco Ariis <fa-ml@ariis.it> Author:             Lemmih (lemmih@gmail.com)-Copyright:          2004-2005, 2010, Lemmih+Copyright:          2004-2005, 2010, 2018 Lemmih et al. License-File:       LICENSE License:            BSD3 Build-Type:         Custom