gloss 1.7.8.3 → 1.7.8.4
raw patch · 4 files changed
+11/−4 lines, 4 filesPVP: minor bump suggested
API additions: PVP suggests at least a minor version bump
API changes (from Hackage documentation)
+ Graphics.Gloss.Data.Color: instance Data Color
+ Graphics.Gloss.Data.Color: instance Typeable Color
+ Graphics.Gloss.Data.Picture: instance Data Picture
+ Graphics.Gloss.Data.Picture: instance Typeable Picture
Files
- Graphics/Gloss/Data/Color.hs +3/−1
- Graphics/Gloss/Data/Picture.hs +2/−1
- Graphics/Gloss/Internals/Render/Bitmap.hs +2/−1
- gloss.cabal +4/−1
Graphics/Gloss/Data/Color.hs view
@@ -27,14 +27,16 @@ , rose, violet, azure, aquamarine, chartreuse, orange ) where+import Data.Data + -- | An abstract color value. -- We keep the type abstract so we can be sure that the components -- are in the required range. To make a custom color use 'makeColor'. data Color -- | Holds the color components. All components lie in the range [0..1. = RGBA !Float !Float !Float !Float- deriving (Show, Eq)+ deriving (Show, Eq, Data, Typeable) instance Num Color where
Graphics/Gloss/Data/Picture.hs view
@@ -51,6 +51,7 @@ import Data.Word import Data.Monoid import Data.ByteString+import Data.Data import System.IO.Unsafe import qualified Data.ByteString.Unsafe as BSU import Prelude hiding (map)@@ -117,7 +118,7 @@ -- More Pictures ---------------------------------- -- | A picture consisting of several others. | Pictures [Picture]- deriving (Show, Eq)+ deriving (Show, Eq, Data, Typeable) -- Instances ------------------------------------------------------------------
Graphics/Gloss/Internals/Render/Bitmap.hs view
@@ -8,6 +8,7 @@ , freeBitmapData ) where+import Data.Data import Foreign @@ -16,7 +17,7 @@ = BitmapData Int -- length (in bytes) (ForeignPtr Word8) -- pointer to data- deriving (Eq)+ deriving (Eq, Data, Typeable) instance Show BitmapData where
gloss.cabal view
@@ -1,5 +1,5 @@ Name: gloss-Version: 1.7.8.3+Version: 1.7.8.4 License: MIT License-file: LICENSE Author: Ben Lippmeier@@ -95,6 +95,9 @@ Graphics.Gloss.Internals.Interface.Simulate Graphics.Gloss.Internals.Interface.Game Graphics.Gloss.Internals.Interface.Backend++ Extensions:+ DeriveDataTypeable If flag(GLUT) CPP-Options: -DWITHGLUT