gpu-vulkan-khr-swapchain 0.1.0.0 → 0.1.0.1
raw patch · 2 files changed
+13/−11 lines, 2 filesPVP: major bump suggested
API removals or changes: PVP suggests a major version bump
API changes (from Hackage documentation)
- Gpu.Vulkan.Khr.Swapchain: instance GHC.Internal.Show.Show (Data.TypeLevel.Maybe.M mn) => GHC.Internal.Show.Show (Gpu.Vulkan.Khr.Swapchain.CreateInfo mn ss fmt)
+ Gpu.Vulkan.Khr.Swapchain: instance (GHC.Internal.Show.Show (Data.TypeLevel.Maybe.M mn), GHC.Internal.Show.Show (Data.TypeLevel.ParMaybe.M (Data.TypeLevel.Tuple.Uncurry.U2 Gpu.Vulkan.Khr.Swapchain.Type.S) mosas)) => GHC.Internal.Show.Show (Gpu.Vulkan.Khr.Swapchain.CreateInfo mn ss fmt mosas)
- Gpu.Vulkan.Khr.Swapchain: CreateInfo :: M mn -> CreateFlags -> S ssfc -> Word32 -> ColorSpace -> Extent2d -> Word32 -> UsageFlags -> SharingMode -> [Index] -> TransformFlagBits -> CompositeAlphaFlagBits -> PresentMode -> Bool -> Maybe S -> CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format)
+ Gpu.Vulkan.Khr.Swapchain: CreateInfo :: M mn -> CreateFlags -> S ssfc -> Word32 -> ColorSpace -> Extent2d -> Word32 -> UsageFlags -> SharingMode -> [Index] -> TransformFlagBits -> CompositeAlphaFlagBits -> PresentMode -> Bool -> M (U2 S) mosas -> CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type))
- Gpu.Vulkan.Khr.Swapchain: [createInfoClipped] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> Bool
+ Gpu.Vulkan.Khr.Swapchain: [createInfoClipped] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> Bool
- Gpu.Vulkan.Khr.Swapchain: [createInfoCompositeAlpha] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> CompositeAlphaFlagBits
+ Gpu.Vulkan.Khr.Swapchain: [createInfoCompositeAlpha] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> CompositeAlphaFlagBits
- Gpu.Vulkan.Khr.Swapchain: [createInfoFlags] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> CreateFlags
+ Gpu.Vulkan.Khr.Swapchain: [createInfoFlags] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> CreateFlags
- Gpu.Vulkan.Khr.Swapchain: [createInfoImageArrayLayers] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> Word32
+ Gpu.Vulkan.Khr.Swapchain: [createInfoImageArrayLayers] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> Word32
- Gpu.Vulkan.Khr.Swapchain: [createInfoImageColorSpace] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> ColorSpace
+ Gpu.Vulkan.Khr.Swapchain: [createInfoImageColorSpace] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> ColorSpace
- Gpu.Vulkan.Khr.Swapchain: [createInfoImageExtent] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> Extent2d
+ Gpu.Vulkan.Khr.Swapchain: [createInfoImageExtent] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> Extent2d
- Gpu.Vulkan.Khr.Swapchain: [createInfoImageSharingMode] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> SharingMode
+ Gpu.Vulkan.Khr.Swapchain: [createInfoImageSharingMode] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> SharingMode
- Gpu.Vulkan.Khr.Swapchain: [createInfoImageUsage] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> UsageFlags
+ Gpu.Vulkan.Khr.Swapchain: [createInfoImageUsage] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> UsageFlags
- Gpu.Vulkan.Khr.Swapchain: [createInfoMinImageCount] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> Word32
+ Gpu.Vulkan.Khr.Swapchain: [createInfoMinImageCount] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> Word32
- Gpu.Vulkan.Khr.Swapchain: [createInfoNext] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> M mn
+ Gpu.Vulkan.Khr.Swapchain: [createInfoNext] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> M mn
- Gpu.Vulkan.Khr.Swapchain: [createInfoOldSwapchain] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> Maybe S
+ Gpu.Vulkan.Khr.Swapchain: [createInfoOldSwapchain] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> M (U2 S) mosas
- Gpu.Vulkan.Khr.Swapchain: [createInfoPreTransform] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> TransformFlagBits
+ Gpu.Vulkan.Khr.Swapchain: [createInfoPreTransform] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> TransformFlagBits
- Gpu.Vulkan.Khr.Swapchain: [createInfoPresentMode] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> PresentMode
+ Gpu.Vulkan.Khr.Swapchain: [createInfoPresentMode] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> PresentMode
- Gpu.Vulkan.Khr.Swapchain: [createInfoQueueFamilyIndices] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> [Index]
+ Gpu.Vulkan.Khr.Swapchain: [createInfoQueueFamilyIndices] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> [Index]
- Gpu.Vulkan.Khr.Swapchain: [createInfoSurface] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) -> S ssfc
+ Gpu.Vulkan.Khr.Swapchain: [createInfoSurface] :: CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type)) -> S ssfc
- Gpu.Vulkan.Khr.Swapchain: create :: forall (mn :: Maybe Type) (fmt :: Format) (mac :: Maybe (Type, Type)) sd ssfc a. (WithPoked (M mn), FormatToValue fmt, ToMiddle mac) => D sd -> CreateInfo mn ssfc fmt -> M (U2 A) mac -> (forall s. () => S fmt s -> IO a) -> IO a
+ Gpu.Vulkan.Khr.Swapchain: create :: forall (mn :: Maybe Type) (fmt :: Format) (mac :: Maybe (Type, Type)) sd ssfc (mosas :: Maybe (Format, Type)) a. (WithPoked (M mn), FormatToValue fmt, ToMiddle mac) => D sd -> CreateInfo mn ssfc fmt mosas -> M (U2 A) mac -> (forall s. () => S fmt s -> IO a) -> IO a
- Gpu.Vulkan.Khr.Swapchain: create' :: forall (fmt :: Format) k (mn :: Maybe Type) (ma :: Maybe (Type, Type)) sd ss ssfc. (FormatToValue fmt, Ord k, WithPoked (M mn), ToMiddle ma) => Group sd ma fmt ss k -> k -> CreateInfo mn ssfc fmt -> IO (Either String (S fmt ss))
+ Gpu.Vulkan.Khr.Swapchain: create' :: forall (fmt :: Format) k (mn :: Maybe Type) (ma :: Maybe (Type, Type)) sd ss ssfc (mosas :: Maybe (Format, Type)). (FormatToValue fmt, Ord k, WithPoked (M mn), ToMiddle ma) => Group sd ma fmt ss k -> k -> CreateInfo mn ssfc fmt mosas -> IO (Either String (S fmt ss))
- Gpu.Vulkan.Khr.Swapchain: data CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format)
+ Gpu.Vulkan.Khr.Swapchain: data CreateInfo (mn :: Maybe Type) ssfc (fmt :: Format) (mosas :: Maybe (Format, Type))
- Gpu.Vulkan.Khr.Swapchain: unsafeRecreate :: forall (mn :: Maybe Type) (fmt :: Format) (mac :: Maybe (Type, Type)) sd ssfc ssc. (WithPoked (M mn), FormatToValue fmt, ToMiddle mac) => D sd -> CreateInfo mn ssfc fmt -> M (U2 A) mac -> S fmt ssc -> IO ()
+ Gpu.Vulkan.Khr.Swapchain: unsafeRecreate :: forall (mn :: Maybe Type) (fmt :: Format) (mac :: Maybe (Type, Type)) sd ssfc (mosas :: Maybe (Format, Type)) ssc. (WithPoked (M mn), FormatToValue fmt, ToMiddle mac) => D sd -> CreateInfo mn ssfc fmt mosas -> M (U2 A) mac -> S fmt ssc -> IO ()
Files
gpu-vulkan-khr-swapchain.cabal view
@@ -5,7 +5,7 @@ -- see: https://github.com/sol/hpack name: gpu-vulkan-khr-swapchain-version: 0.1.0.0+version: 0.1.0.1 synopsis: VK_KHR_swapchain extension of the Vulkan API description: Please see the README on GitHub at <https://github.com/YoshikuniJujo/gpu-vulkan-khr-swapchain#readme> category: GPU
src/Gpu/Vulkan/Khr/Swapchain.hs view
@@ -81,7 +81,7 @@ create :: ( WithPoked (TMaybe.M mn), T.FormatToValue fmt, AllocationCallbacks.ToMiddle mac ) =>- Device.D sd -> CreateInfo mn ssfc fmt ->+ Device.D sd -> CreateInfo mn ssfc fmt mosas -> TPMaybe.M (U2 AllocationCallbacks.A) mac -> (forall s . S fmt s -> IO a) -> IO a create (Device.D dvc) ci (AllocationCallbacks.toMiddle -> mac) f = bracket@@ -91,12 +91,12 @@ unsafeRecreate :: ( WithPoked (TMaybe.M mn), T.FormatToValue fmt, AllocationCallbacks.ToMiddle mac ) =>- Device.D sd -> CreateInfo mn ssfc fmt ->+ Device.D sd -> CreateInfo mn ssfc fmt mosas -> TPMaybe.M (U2 AllocationCallbacks.A) mac -> S fmt ssc -> IO () unsafeRecreate (Device.D dvc) ci (AllocationCallbacks.toMiddle -> mac) (S sc) = M.recreate dvc (createInfoToMiddle ci) mac sc -data CreateInfo mn ssfc (fmt :: T.Format) = CreateInfo {+data CreateInfo mn ssfc (fmt :: T.Format) mosas = CreateInfo { createInfoNext :: TMaybe.M mn, createInfoFlags :: CreateFlags, createInfoSurface :: Surface.S ssfc,@@ -111,12 +111,13 @@ createInfoCompositeAlpha :: CompositeAlphaFlagBits, createInfoPresentMode :: PresentMode, createInfoClipped :: Bool,- createInfoOldSwapchain :: Maybe M.S }+ createInfoOldSwapchain :: TPMaybe.M (U2 S) mosas } -deriving instance Show (TMaybe.M mn) => Show (CreateInfo mn ss fmt)+deriving instance (Show (TMaybe.M mn), Show (TPMaybe.M (U2 S) mosas)) =>+ Show (CreateInfo mn ss fmt mosas) -createInfoToMiddle :: forall n ss fmt . T.FormatToValue fmt =>- CreateInfo n ss fmt -> M.CreateInfo n+createInfoToMiddle :: forall n ss fmt mosas . T.FormatToValue fmt =>+ CreateInfo n ss fmt mosas -> M.CreateInfo n createInfoToMiddle CreateInfo { createInfoNext = mnxt, createInfoFlags = flgs,@@ -132,7 +133,7 @@ createInfoCompositeAlpha = calph, createInfoPresentMode = pm, createInfoClipped = clpd,- createInfoOldSwapchain = osc } = M.CreateInfo {+ createInfoOldSwapchain = mosc } = M.CreateInfo { M.createInfoNext = mnxt, M.createInfoFlags = flgs, M.createInfoSurface = sfc,@@ -148,7 +149,8 @@ M.createInfoCompositeAlpha = calph, M.createInfoPresentMode = pm, M.createInfoClipped = clpd,- M.createInfoOldSwapchain = osc }+ M.createInfoOldSwapchain =+ TPMaybe.maybe Nothing (\(U2 (S ms)) -> Just ms) mosc } getImages :: Device.D sd -> S fmt ss -> IO [Image.Binded ss ss nm fmt] getImages (Device.D d) (S sc) = (Image.Binded <$>) <$> M.getImages d sc@@ -169,7 +171,7 @@ create' :: ( T.FormatToValue fmt, Ord k, WithPoked (TMaybe.M mn), AllocationCallbacks.ToMiddle ma ) =>- Group sd ma fmt ss k -> k -> CreateInfo mn ssfc fmt ->+ Group sd ma fmt ss k -> k -> CreateInfo mn ssfc fmt mosas -> IO (Either String (S fmt ss)) create' (Group (Device.D mdvc) (AllocationCallbacks.toMiddle -> mmac) sem ss) k