start new chapter

src/Init.hs

@@ -119,7 +119,7 @@ initVulkan window = do
 
   initScene
 
-  return $ EngineData
+  EngineData
     window
     dimensions
     vulkanPhysicalDevice
@@ -137,6 +137,7 @@ initVulkan window = do
     frames
     descriptorSetLayout
     descriptorPool
+    <$> Vk.getPhysicalDeviceProperties vulkanPhysicalDevice
 
 initScene :: (MonadReader ReadState m, MonadIO m) => m ()
 initScene = do

src/Types.hs

@@ -41,6 +41,7 @@ data EngineData = EngineData
   , engineFrames                   :: V.Vector FrameData
   , engineGlobalSetLayout          :: Vk.DescriptorSetLayout
   , engineDescriptorPool           :: Vk.DescriptorPool
+  , enginePhysicalDeviceProperties :: Vk.PhysicalDeviceProperties
   } 
 
 data AllocatedBuffer = AllocatedBuffer