diff --git a/src/Types.hs b/src/Types.hs index 5027728..ed7859b 100644 --- a/src/Types.hs +++ b/src/Types.hs @@ -212,7 +212,7 @@ undefinedGPUObjectData = GPUObjectData identity instance Storable GPUObjectData where - sizeOf (GPUObjectData modelMatrix) = sizeOf modelMatrix + sizeOf (GPUObjectData _) = sizeOf (identity :: M44 Float) alignment _ = 0