Refactors module names

Author: Mike Solomon

sandbox/Sandbox.purs

@@ -21,11 +21,9 @@ import Effect.Class (liftEffect)
 import Unsafe.Coerce (unsafeCoerce)
 import Web.DOM.Element (setAttribute)
 import Web.DOM.NonElementParentNode (getElementById)
-import Web.GPU.GPUDevice (createBuffer, createCommandEncoder, createPipelineLayout, createRenderPipeline, createShaderModule, createTexture)
-import Web.GPU.GPUDevice as GPUDevice
 import Web.GPU.GPU (requestAdapter)
 import Web.GPU.GPUAdapter (requestDevice)
-import Web.GPU.GPUBuffer (getMappedRange, unmap)
+import Web.GPU.GPUBuffer (GPUBuffer, getMappedRange, unmap)
 import Web.GPU.GPUBufferUsage (GPUBufferUsageFlags)
 import Web.GPU.GPUBufferUsage as GPUBufferUsage
 import Web.GPU.GPUCanvasAlphaMode (opaque)
@@ -37,6 +35,8 @@ import Web.GPU.GPUCommandEncoder (beginRenderPass, finish)
 import Web.GPU.GPUCompareFunction as GPUCompareFunction
 import Web.GPU.GPUCullMode (none)
 import Web.GPU.GPUDepthStencilState (GPUDepthStencilState)
+import Web.GPU.GPUDevice (createBuffer, createCommandEncoder, createPipelineLayout, createRenderPipeline, createShaderModule, createTexture)
+import Web.GPU.GPUDevice as GPUDevice
 import Web.GPU.GPUExtent3D (gpuExtent3DWHD)
 import Web.GPU.GPUFragmentState (GPUFragmentState)
 import Web.GPU.GPUFrontFace (cw)
@@ -64,7 +64,6 @@ import Web.GPU.GPUVertexStepMode as StepMode
 import Web.GPU.HTMLCanvasElement (getContext)
 import Web.GPU.Internal.Bitwise ((.|.))
 import Web.GPU.Internal.RequiredAndOptional (x)
-import Web.GPU.Internal.Types (GPUBuffer)
 import Web.GPU.Navigator (gpu)
 import Web.HTML (window)
 import Web.HTML.HTMLCanvasElement (fromElement, height, width)

src/Web/GPU/BufferSource.purs

@@ -13,8 +13,8 @@ module Web.GPU.BufferSource where
 
 import Data.ArrayBuffer.Types (ArrayBuffer, DataView, Float32Array, Float64Array, Int16Array, Int32Array, Int8Array, Uint16Array, Uint32Array, Uint8Array, Uint8ClampedArray)
 import Unsafe.Coerce (unsafeCoerce)
-import Web.GPU.Internal.Types (BufferSource)
 
+data BufferSource
 fromArrayBuffer :: ArrayBuffer -> BufferSource
 fromArrayBuffer = unsafeCoerce
 

src/Web/GPU/GPU.purs

@@ -3,17 +3,18 @@
 -- @inline export getPreferredCanvasFormatImpl arity=1
 -- @inline export getPreferredCanvasFormat arity=1
 module Web.GPU.GPU
-  ( requestAdapter
+  ( GPU,requestAdapter
   , getPreferredCanvasFormat
   ) where
 
 import Data.Maybe (Maybe(..))
 import Effect (Effect)
 import Web.GPU.GPURequestAdapterOptions (GPURequestAdapterOptions)
 import Web.GPU.GPUTextureFormat (GPUTextureFormat)
-import Web.GPU.Internal.Types (GPU, GPUAdapter)
 import Web.Promise (Promise)
+import Web.GPU.GPUAdapter(GPUAdapter)
 
+data GPU
 -- requestAdapter
 
 foreign import requestAdapterImpl

src/Web/GPU/GPUAdapter.purs

@@ -9,24 +9,28 @@
 -- @inline export requestAdapterInfoImpl arity=2
 -- @inline export requestAdapterInfo arity=2
 module Web.GPU.GPUAdapter
-  ( GPUAdapterInfo
+  ( GPUAdapter(..)
+  , GPUAdapterInfo
   , features
-  , limits
   , isFallbackAdapter
+  , limits
   , requestAdapterInfo
   , requestDevice
-  ) where
+  )
+  where
 
 import Data.Maybe (Maybe(..))
 import Data.Set as Set
 import Effect (Effect)
 import Web.GPU.GPUDeviceDescriptor (GPUDeviceDescriptor)
 import Web.GPU.GPUFeatureName (GPUFeatureName)
+import Web.GPU.GPUDevice(GPUDevice)
 import Web.GPU.GPUSupportedLimits (GPUSupportedLimits)
-import Web.GPU.Internal.Types (GPUAdapter, GPUDevice)
 import Web.GPU.UnmaskHint (UnmaskHint)
 import Web.Promise (Promise)
 
+data GPUAdapter
+
 -- features
 foreign import featuresImpl
   :: (GPUFeatureName -> Set.Set GPUFeatureName -> Set.Set GPUFeatureName)

src/Web/GPU/GPUBindGroup.purs

@@ -0,0 +1,6 @@
+module Web.GPU.GPUBindGroup
+  ( GPUBindGroup
+  )
+  where
+
+data GPUBindGroup

src/Web/GPU/GPUBindGroupDescriptor.purs

@@ -1,8 +1,9 @@
 module Web.GPU.GPUBindGroupDescriptor where
 
 import Data.Newtype (class Newtype)
+import Web.GPU.GPUBindGroupEntry (GPUBindGroupEntry)
+import Web.GPU.GPUBindGroupLayout (GPUBindGroupLayout)
 import Web.GPU.Internal.RequiredAndOptional (RequiredAndOptional)
-import Web.GPU.Internal.Types (GPUBindGroupEntry, GPUBindGroupLayout)
 
 newtype GPUBindGroupDescriptor = GPUBindGroupDescriptor
   ( RequiredAndOptional

src/Web/GPU/GPUBindGroupEntry.purs

@@ -2,17 +2,23 @@ module Web.GPU.GPUBindGroupEntry where
 
 import Data.Newtype (class Newtype)
 import Unsafe.Coerce (unsafeCoerce)
+import Web.GPU.GPUBuffer (GPUBuffer)
+import Web.GPU.GPUExternalTexture (GPUExternalTexture)
+import Web.GPU.GPUSampler (GPUSampler)
+import Web.GPU.GPUTextureView (GPUTextureView)
 import Web.GPU.Internal.RequiredAndOptional (RequiredAndOptional)
-import Web.GPU.Internal.Types (GPUBindGroupEntry, GPUBuffer, GPUExternalTexture, GPUIndex32, GPUSampler, GPUTextureView, GPUSize64)
+import Web.GPU.Internal.Types (GPUIndex32, GPUSize64)
 
-class GPUBindGroupEntry e where
+data GPUBindGroupEntry
+
+class AsGPUBindGroupEntry e where
   gpuBindGroupEntry :: GPUIndex32 -> e -> GPUBindGroupEntry
 
-instance GPUBindGroupEntry GPUSampler where
+instance AsGPUBindGroupEntry GPUSampler where
   gpuBindGroupEntry binding resource = unsafeCoerce
     { binding, resource: unsafeCoerce resource }
 
-instance GPUBindGroupEntry GPUTextureView where
+instance AsGPUBindGroupEntry GPUTextureView where
   gpuBindGroupEntry binding resource = unsafeCoerce
     { binding, resource: unsafeCoerce resource }
 
@@ -23,10 +29,10 @@ newtype GPUBufferBinding = GPUBufferBinding
 
 derive instance Newtype GPUBufferBinding _
 
-instance GPUBindGroupEntry GPUBufferBinding where
+instance AsGPUBindGroupEntry GPUBufferBinding where
   gpuBindGroupEntry binding resource = unsafeCoerce
     { binding, resource: unsafeCoerce resource }
 
-instance GPUBindGroupEntry GPUExternalTexture where
+instance AsGPUBindGroupEntry GPUExternalTexture where
   gpuBindGroupEntry binding resource = unsafeCoerce
     { binding, resource: unsafeCoerce resource }

src/Web/GPU/GPUBindGroupLayout.purs

@@ -0,0 +1,6 @@
+module Web.GPU.GPUBindGroupLayout
+  ( GPUBindGroupLayout
+  )
+  where
+
+data GPUBindGroupLayout

src/Web/GPU/GPUBindGroupLayoutDescriptor.purs

@@ -1,8 +1,8 @@
 module Web.GPU.GPUBindGroupLayoutDescriptor where
 
 import Data.Newtype (class Newtype)
+import Web.GPU.GPUBindGroupLayoutEntry (GPUBindGroupLayoutEntry)
 import Web.GPU.Internal.RequiredAndOptional (RequiredAndOptional)
-import Web.GPU.Internal.Types (GPUBindGroupLayoutEntry)
 
 newtype GPUBindGroupLayoutDescriptor = GPUBindGroupLayoutDescriptor
   ( RequiredAndOptional (entries :: Array GPUBindGroupLayoutEntry)

src/Web/GPU/GPUBindGroupLayoutEntry.purs

@@ -12,8 +12,9 @@ import Web.GPU.GPUSamplerBindingLayout (GPUSamplerBindingLayout)
 import Web.GPU.GPUShaderStage (GPUShaderStageFlags)
 import Web.GPU.GPUStorageTextureBindingLayout (GPUStorageTextureBindingLayout)
 import Web.GPU.GPUTextureBindingLayout (GPUTextureBindingLayout)
-import Web.GPU.Internal.Types (GPUBindGroupLayoutEntry, GPUIndex32)
+import Web.GPU.Internal.Types (GPUIndex32)
 
+data GPUBindGroupLayoutEntry
 gpuBufferBindingLayout
   :: GPUIndex32
   -> GPUShaderStageFlags