h-raylib 4.5.0.5 → 4.5.0.6

raw patch · 3 files changed

+9/−5 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• h-raylib.cabal +1/−1
• src/Raylib/Types.hs +4/−4

@@ -9,3 +9,7 @@ _19 November 2022_
 - Replaced `CInt` with `CBool` in `RayCollision`
 - Updated raylib to the master branch
+
+## Version 4.5.0.6
+_24 November 2022_
+- Fixed `Font` marshalling ([#6](https://github.com/Anut-py/h-raylib/issues/6))

@@ -1,6 +1,6 @@ cabal-version:      2.4
 name:               h-raylib
-version:            4.5.0.5
+version:            4.5.0.6
 synopsis:           Raylib bindings for Haskell
 category:           graphics
 description:

@@ -635,12 +635,12 @@ 
 p'Font'recs :: Ptr Font -> Ptr (Ptr Rectangle)
 
-p'Font'glyphs p = plusPtr p 36
+p'Font'glyphs p = plusPtr p 40
 
 p'Font'glyphs :: Ptr Font -> Ptr (Ptr GlyphInfo)
 
 instance Storable Font where
-  sizeOf _ = 40
+  sizeOf _ = 48
   alignment _ = 4
   peek _p = do
     v0 <- peekByteOff _p 0
@@ -648,7 +648,7 @@     v2 <- peekByteOff _p 8
     v3 <- peekByteOff _p 12
     v4 <- peekByteOff _p 32
-    v5 <- peekByteOff _p 36
+    v5 <- peekByteOff _p 40
     return $ Font v0 v1 v2 v3 v4 v5
   poke _p (Font v0 v1 v2 v3 v4 v5) = do
     pokeByteOff _p 0 v0
@@ -656,7 +656,7 @@     pokeByteOff _p 8 v2
     pokeByteOff _p 12 v3
     pokeByteOff _p 32 v4
-    pokeByteOff _p 36 v5
+    pokeByteOff _p 40 v5
     return ()
 
 {- typedef struct Camera3D {