keid-ui-dearimgui 0.1.2.0 → 0.1.2.1

raw patch · 3 files changed

+14/−8 lines, 3 filesdep ~keid-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: keid-core

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• keid-ui-dearimgui.cabal +4/−4
• src/Render/ImGui.hs +6/−4

@@ -1,5 +1,9 @@ # Changelog for keid-dearimgui +## 0.1.2.1++- Update for keid-core-0.1.8.0.+ ## 0.1.2.0  - Added `renderWith` helper to inject DearImGui initialization in stage rendering components.

@@ -1,16 +1,16 @@ cabal-version: 1.12 --- This file has been generated from package.yaml by hpack version 0.34.4.+-- This file has been generated from package.yaml by hpack version 0.35.1. -- -- see: https://github.com/sol/hpack  name:           keid-ui-dearimgui-version:        0.1.2.0+version:        0.1.2.1 synopsis:       DearImGui elements for Keid engine. category:       Game Engine author:         IC Rainbow maintainer:     keid@aenor.ru-copyright:      2021 IC Rainbow+copyright:      2023 IC Rainbow license:        BSD3 license-file:   LICENSE build-type:     Simple@@ -94,7 +94,7 @@     , binary     , bytestring     , dear-imgui >=1.3.0-    , keid-core >=0.1.7.0+    , keid-core >=0.1.8.0     , resourcet     , rio >=0.1.12.0     , rio-app

@@ -30,7 +30,8 @@ import Engine.Types (GlobalHandles(..), StageRIO) import Engine.Vulkan.Types (HasRenderPass(..), HasSwapchain(..), Queues(..), getDevice, getMultisample) import Resource.CommandBuffer qualified as CommandBuffer-import Resource.DescriptorSet qualified as DescriptorSet+import Resource.Region qualified as Region+import Resource.Vulkan.DescriptorPool qualified as DescriptorPool import RIO.App (appEnv) import Vulkan.Core10 qualified as Vk import Vulkan.Exception (VulkanException(..))@@ -81,13 +82,14 @@   void $! register debugReleaseFinished    ctx <- ImGui.createContext-  _ctxKey <- register $ ImGui.destroyContext ctx+  Region.register_ $ ImGui.destroyContext ctx    context@GlobalHandles{..} <- asks appEnv    let (QueueFamilyIndex queueFamily, queue) = qGraphics ghQueues -  (_poolKey, pool) <- DescriptorSet.allocatePool 1 dsSizes+  pool <- Region.local $+    DescriptorPool.allocate (Just "ImGui") 1 dsSizes    let     initInfo = InitInfo@@ -133,7 +135,7 @@    pure (key, actionRes) -dsSizes :: DescriptorSet.TypeMap Word32+dsSizes :: [(Vk.DescriptorType, Word32)] dsSizes = map (, 100)   [ Vk.DESCRIPTOR_TYPE_SAMPLER   , Vk.DESCRIPTOR_TYPE_COMBINED_IMAGE_SAMPLER