Removed redundant constraints. Bumped version to 3.0.0.2.

Author: svenpanne

CHANGELOG.md

@@ -1,3 +1,7 @@
+3.0.0.2
+-------
+* Removed redundant constraints.
+
 3.0.0.1
 -------
 * Relaxed upper version bound for `OpenGLRaw`.

OpenGL.cabal

@@ -1,5 +1,5 @@
 name: OpenGL
-version: 3.0.0.1
+version: 3.0.0.2
 synopsis: A binding for the OpenGL graphics system
 description:
   A Haskell binding for the OpenGL graphics system (GL, version 4.5) and its

src/Graphics/Rendering/OpenGL/GL/Evaluators.hs

@@ -74,7 +74,7 @@ data MapDescriptor d =
    MapDescriptor (d, d) Stride Order NumComponents
    deriving ( Eq, Ord, Show )
 
-totalComponents1 :: Domain d => MapDescriptor d -> Int
+totalComponents1 :: MapDescriptor d -> Int
 totalComponents1 (MapDescriptor _ stride order numComp) =
    fromIntegral stride * (fromIntegral order - 1) + fromIntegral numComp
 

src/Graphics/Rendering/OpenGL/GL/QueryUtils/PName.hs

@@ -113,7 +113,7 @@ class GetPName p => GetPName1F p where
     getClampd1 = get1 getDoublev
 
 -- | Helper function for the get*1 functions.
-get1 :: (Storable b, Storable c, GetPName p)
+get1 :: (Storable b, Storable c)
     => (p -> Ptr c -> IO ())
     -> (b -> a) -- ^ Conversion from the casted value to the return value
     -> p -> IO a
@@ -138,7 +138,7 @@ class GetPName p => GetIPName1I p where
     getInteger641i = get1i getInteger64iv
 
 -- Indexed helper
-get1i :: (Storable b, Storable c, GetPName p)
+get1i :: (Storable b, Storable c)
     => (p -> GLuint -> Ptr c -> IO ())
     -> (b -> a) -- ^ Conversion from the casted value to the return value
     -> p -> GLuint -> IO a
@@ -175,7 +175,7 @@ class GetPName p => GetPName2F p where
     getClampd2 = get2 getDoublev
 
 -- | Helper function for the get*2 functions.
-get2 :: (Storable b, Storable c, GetPName p)
+get2 :: (Storable b, Storable c)
     => (p -> Ptr c -> IO ())
     -> (b -> b -> a) -- ^ Conversion from the casted value to the return value
     -> p -> IO a
@@ -212,7 +212,7 @@ class GetPName p => GetPName3F p where
     getClampd3 = get3 getDoublev
 
 -- | Helper function for the get*3 functions.
-get3 :: (Storable b, Storable c, GetPName p)
+get3 :: (Storable b, Storable c)
     => (p -> Ptr c -> IO ())
     -> (b -> b -> b -> a) -- ^ Conversion from the casted value to the return value
     -> p -> IO a
@@ -249,7 +249,7 @@ class GetPName p => GetPName4F p where
     getClampd4 = get4 getDoublev
 
 -- | Helper function for the get*4 functions.
-get4 :: (Storable b, Storable c, GetPName p)
+get4 :: (Storable b, Storable c)
     => (p -> Ptr c -> IO ())
     -> (b -> b -> b -> b -> a) -- ^ Conversion from the casted value to the return value
     -> p -> IO a
@@ -271,7 +271,7 @@ class GetPName p => GetIPName4I p where
     getSizei4i = get4i getIntegeriv
 
 -- | Helper function for the get*4 functions.
-get4i :: (Storable b, Storable c, GetPName p)
+get4i :: (Storable b, Storable c)
     => (p -> GLuint -> Ptr c -> IO ())
     -> (b -> b -> b -> b -> a) -- ^ Conversion from the casted value to the return value
     -> p -> GLuint -> IO a

src/Graphics/Rendering/OpenGL/GL/Shaders/Uniform.hs

@@ -157,7 +157,7 @@ makeUniformVar setter location = makeStateVar getter (setter location)
                         getUniform program location buf
                         peek buf
 
-getSimpleUniform :: Storable a => Program -> UniformLocation -> Ptr a -> IO ()
+getSimpleUniform :: Program -> UniformLocation -> Ptr a -> IO ()
 getSimpleUniform (Program p) (UniformLocation ul) = glGetUniformfv p ul . castPtr
 
 makeSimpleUniformVar :: (UniformComponent a)

src/Graphics/Rendering/OpenGL/GL/Texturing/Parameters.hs

@@ -212,17 +212,15 @@ textureCompareOperator =
 
 --------------------------------------------------------------------------------
 
-combineTexParams :: ParameterizedTextureTarget t
-                 => (t -> StateVar a)
+combineTexParams :: (t -> StateVar a)
                  -> (t -> StateVar b)
                  -> (t -> StateVar (a,b))
 combineTexParams v w t =
    makeStateVar
       (liftM2 (,) (get (v t)) (get (w t)))
       (\(x,y) -> do v t $= x; w t $= y)
 
-combineTexParamsMaybe :: ParameterizedTextureTarget t
-                      => (t -> StateVar Capability)
+combineTexParamsMaybe :: (t -> StateVar Capability)
                       -> (t -> StateVar a)
                       -> (t -> StateVar (Maybe a))
 combineTexParamsMaybe enab val t =