Adds view creation without descriptor

Author: Mike Solomon

src/Web/GPU/GPUDevice.purs

@@ -337,7 +337,7 @@ type GPUBindGroupLayoutDescriptor =
 foreign import createBindGroupLayoutImpl :: GPUDevice -> { | GPUBindGroupLayoutDescriptor } -> Effect GPUBindGroupLayout
 
 createBindGroupLayout
-  ::  GPUDevice
+  :: GPUDevice
   -> { | GPUBindGroupLayoutDescriptor }
   -> Effect GPUBindGroupLayout
 createBindGroupLayout = createBindGroupLayoutImpl
@@ -529,7 +529,7 @@ type GPUPipelineLayoutDescriptor =
   { bindGroupLayouts :: Array GPUBindGroupLayout
   }
 
-foreign import createPipelineLayoutImpl :: GPUDevice -> GPUPipelineLayoutDescriptor  -> Effect GPUPipelineLayout
+foreign import createPipelineLayoutImpl :: GPUDevice -> GPUPipelineLayoutDescriptor -> Effect GPUPipelineLayout
 
 createPipelineLayout
   :: GPUDevice
@@ -543,9 +543,9 @@ type GPUBindGroupDescriptor =
   , entries :: Array GPUBindGroupEntry
   }
 
-foreign import createBindGroupImpl ::  GPUDevice -> GPUBindGroupDescriptor  -> Effect GPUBindGroup 
+foreign import createBindGroupImpl :: GPUDevice -> GPUBindGroupDescriptor -> Effect GPUBindGroup
 
-createBindGroup :: GPUDevice -> GPUBindGroupDescriptor -> Effect GPUBindGroup 
+createBindGroup :: GPUDevice -> GPUBindGroupDescriptor -> Effect GPUBindGroup
 createBindGroup = createBindGroupImpl
 
 -- createShaderModule

src/Web/GPU/GPUExternalTexture.js

@@ -1 +1 @@
-export const expiredImpl = (texture) => () => texture.expired;
+export const expiredImpl = (texture) => () => texture.expired;

src/Web/GPU/GPUExternalTexture.purs

@@ -1,7 +1,5 @@
 module Web.GPU.GPUExternalTexture where
 
-
-
 import Effect (Effect)
 import Web.GPU.Internal.Types (GPUExternalTexture)
 

src/Web/GPU/GPUPipelineBase.js

@@ -1 +1,2 @@
-export const unsafeGetBindGroupLayoutImpl = (pipeline) => (index) => () => pipeline.getBindGroupLayout(index);
+export const unsafeGetBindGroupLayoutImpl = (pipeline) => (index) => () =>
+  pipeline.getBindGroupLayout(index);

src/Web/GPU/GPUPipelineBase.purs

@@ -11,5 +11,6 @@ class GPUPipelineBase a where
 
 instance GPUPipelineBase GPUComputePipeline where
   getBindGroupLayout = unsafeGetBindGroupLayoutImpl
+
 instance GPUPipelineBase GPURenderPipeline where
   getBindGroupLayout = unsafeGetBindGroupLayoutImpl

src/Web/GPU/GPUShaderModule.js

@@ -1 +1,2 @@
-export const compilationInfoImpl = (shaderModule) => () => shaderModule.compilationInfo();
+export const compilationInfoImpl = (shaderModule) => () =>
+  shaderModule.compilationInfo();

src/Web/GPU/GPUTexture.js

@@ -1,10 +1,13 @@
-export const createViewImpl = (texture) => (descriptor) => () => texture.createView(descriptor);
+export const createViewImpl = (texture) => () => texture.createView();
+export const createViewWithDescriptorImpl = (texture) => (descriptor) => () =>
+  texture.createView(descriptor);
 export const destroyImpl = (texture) => () => texture.destroy();
 export const widthImpl = (texture) => () => texture.width;
 export const heightImpl = (texture) => () => texture.height;
-export const depthOrArrayLayersImpl = (texture) => () => texture.depthOrArrayLayers;
+export const depthOrArrayLayersImpl = (texture) => () =>
+  texture.depthOrArrayLayers;
 export const mipLevelCountImpl = (texture) => () => texture.mipLevelCount;
 export const sampleCountImpl = (texture) => () => texture.sampleCount;
 export const dimensionImpl = (texture) => () => texture.dimension;
 export const formatImpl = (texture) => () => texture.format;
-export const usageImpl = (texture) => () => texture.usage;
+export const usageImpl = (texture) => () => texture.usage;

src/Web/GPU/GPUTexture.purs

@@ -1,5 +1,6 @@
 module Web.GPU.GPUTexture
   ( TextureViewDescriptor
+  , createViewWithDescriptor
   , createView
   , destroy
   , width
@@ -57,19 +58,26 @@ instance ConvertOption TextureViewDescriptor "baseMipLevel" GPUIntegerCoordinate
 instance ConvertOption TextureViewDescriptor "baseArrayLayer" GPUIntegerCoordinate (Undefinable GPUIntegerCoordinate) where
   convertOption _ _ = defined
 
-foreign import createViewImpl :: GPUTexture -> { | GPUTextureViewDescriptor } -> Effect GPUTextureView
+foreign import createViewWithDescriptorImpl :: GPUTexture -> { | GPUTextureViewDescriptor } -> Effect GPUTextureView
 
-createView
+createViewWithDescriptor
   :: forall provided
    . ConvertOptionsWithDefaults TextureViewDescriptor { | GPUTextureViewDescriptorOptional } { | provided } { | GPUTextureViewDescriptor }
   => GPUTexture
   -> { | provided }
   -> Effect GPUTextureView
-createView gpuDevice provided = createViewImpl gpuDevice all
+createViewWithDescriptor gpuDevice provided = createViewWithDescriptorImpl gpuDevice all
   where
   all :: { | GPUTextureViewDescriptor }
   all = convertOptionsWithDefaults TextureViewDescriptor defaultGPUTextureViewDescriptorOptions provided
 
+foreign import createViewImpl :: GPUTexture -> Effect GPUTextureView
+
+createView
+  :: GPUTexture
+  -> Effect GPUTextureView
+createView = createViewImpl
+
 foreign import destroyImpl :: GPUTexture -> Effect Unit
 
 destroy :: GPUTexture -> Effect Unit

src/Web/GPU/GPUTextureAspect.purs

@@ -18,5 +18,6 @@ all = GPUTextureAspect "all"
 
 stencilOnly :: GPUTextureAspect
 stencilOnly = GPUTextureAspect "stencil-only"
+
 depthOnly :: GPUTextureAspect
 depthOnly = GPUTextureAspect "depth-only"