gpu-vulkan-middle 0.1.0.63 → 0.1.0.64
raw patch · 2 files changed
+7/−1 lines, 2 filesPVP: minor bump suggested
API additions: PVP suggests at least a minor version bump
API changes (from Hackage documentation)
+ Gpu.Vulkan.PhysicalDevice.Middle.Internal: instance Foreign.Storable.PeekPoke.Internal.WithPoked (Data.TypeLevel.Maybe.M mn) => Foreign.Storable.PeekPoke.Internal.WithPoked (Gpu.Vulkan.PhysicalDevice.Middle.Internal.Features2 mn)
Files
gpu-vulkan-middle.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: gpu-vulkan-middle-version: 0.1.0.63+version: 0.1.0.64 synopsis: Medium wrapper for Vulkan API description: Please see the README on GitHub at <https://github.com/YoshikuniJujo/gpu-vulkan-middle#readme> category: GPU
src/Gpu/Vulkan/PhysicalDevice/Middle/Internal.hsc view
@@ -171,6 +171,12 @@ deriving instance Show (TMaybe.M mn) => Show (Features2 mn) +instance WithPoked (TMaybe.M mn) => WithPoked (Features2 mn) where+ withPoked' (Features2 mn fs) f = alloca \pfs2 -> do+ withPoked' mn \spn -> withPtrS spn \pn ->+ poke pfs2 $ C.Features2 () (castPtr pn) (featuresToCore fs)+ f . ptrS $ castPtr pfs2+ features2FromCore :: ReadChain mn => C.Features2 -> IO (Features2 mn) features2FromCore C.Features2 { C.features2PNext = pnxt,