Use per-primitive index head rather than per-component in PointPrimitiveRing.

1 files changed, 3 insertions, 4 deletions

diff --git a/MaskableStream.hs b/MaskableStream.hs
index 5ef5b28..5274d28 100644
--- a/MaskableStream.hs
+++ b/MaskableStream.hs
@@ -265,12 +265,11 @@ updateAttributes i writer = forM_ (execWriter writer) $ \case
                 putStrLn $ "vector sz = " ++ show sz
                 glBufferSubData GL_ARRAY_BUFFER (base + fromIntegral i * sz') sz' ptr
 
-            Just (MarshalGLMatrix with) -> with $ \sz isrowcol ptr -> do
-                if isrowcol then
-                    hPutStrLn stderr $ "WARNING: (TODO) row-major matrix attribute update unimplemented."
-                else do
+            Just (MarshalGLMatrix with) -> with $ \sz isrowcol ptr -> case isrowcol of
+                0 -> do
                     let sz' = fromIntegral $ attribSize * (fromIntegral sz)
                     glBufferSubData GL_ARRAY_BUFFER (base + fromIntegral i * sz') sz' ptr
+                _ -> hPutStrLn stderr $ "WARNING: (TODO) row-major matrix attribute update unimplemented."
 
             Nothing -> hPutStrLn stderr $ "Warning: dimension mismatch updating " ++ show (unwitnessType typ) ++ " attribute."
         glBindBuffer GL_ARRAY_BUFFER 0