luminance 0.8.2 → 0.8.2.1

raw patch · 3 files changed

+8/−8 lines, 3 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

- Graphics.Luminance.Geometry: createGeometry :: (Foldable f, MonadIO m, MonadResource m, Storable v, Vertex v) => f v -> Maybe (f Word32) -> GeometryMode -> m Geometry

+ Graphics.Luminance.Geometry: createGeometry :: (Foldable f, MonadResource m, Storable v, Vertex v) => f v -> Maybe (f Word32) -> GeometryMode -> m Geometry

Files

CHANGELOG.md +5/−0
luminance.cabal +1/−1
src/Graphics/Luminance/Core/Geometry.hs +2/−7

CHANGELOG.md view

@@ -1,3 +1,8 @@+### 0.8.2.1++- Removed the `MonadIO` constraint on `createGeometry` as it’s already brought by `MonadResource`.+- Clean some code about `createGeometry` conditional (gl32 / gl45).+ ### 0.8.2  - Exposed `SomeUniformName`.

luminance.cabal view

@@ -1,5 +1,5 @@ name:                luminance-version:             0.8.2+version:             0.8.2.1 synopsis:            Type-safe, type-level and stateless graphics framework description:         This package exposes several modules to work with /GPUs/ in a stateless and                      type-safe way. Currently, it uses OpenGL as backend hardware technology but

src/Graphics/Luminance/Core/Geometry.hs view

@@ -73,12 +73,12 @@ -- If you don’t pass indices ('Nothing'), you end up with a /direct geometry/. Otherwise, you get an -- /indexed geometry/. You also have to provide a 'GeometryMode' to state how you want the vertices -- to be connected with each other.-#ifdef __GL45-createGeometry :: forall f m v. (Foldable f,MonadIO m,MonadResource m,Storable v,Vertex v)+createGeometry :: forall f m v. (Foldable f,MonadResource m,Storable v,Vertex v)                => f v                -> Maybe (f Word32)                -> GeometryMode                -> m Geometry+#ifdef __GL45 createGeometry vertices indices mode = do     -- create the vertex array object (OpenGL-side)     vid <- liftIO . alloca $ \p -> do@@ -103,11 +103,6 @@     vertNb = length vertices     mode'  = fromGeometryMode mode #elif defined(__GL32)-createGeometry :: forall f m v. (Foldable f,MonadIO m,MonadResource m,Storable v,Vertex v)-               => f v-               -> Maybe (f Word32)-               -> GeometryMode-               -> m Geometry createGeometry vertices indices mode = do     -- create the vertex array object (OpenGL-side)     vid <- liftIO . alloca $ \p -> do