diff options
Diffstat (limited to 'MaskableStream.hs')
| -rw-r--r-- | MaskableStream.hs | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/MaskableStream.hs b/MaskableStream.hs index d836f37..6c03769 100644 --- a/MaskableStream.hs +++ b/MaskableStream.hs | |||
| @@ -331,7 +331,6 @@ updateAttributes i writer = forM_ (execWriter writer) $ \case | |||
| 331 | 331 | ||
| 332 | Just (MarshalGLVector with) -> with $ \sz ptr -> do | 332 | Just (MarshalGLVector with) -> with $ \sz ptr -> do |
| 333 | let sz' = fromIntegral $ attribSize * (fromIntegral sz) | 333 | let sz' = fromIntegral $ attribSize * (fromIntegral sz) |
| 334 | putStrLn $ "vector sz = " ++ show sz | ||
| 335 | glBufferSubData GL_ARRAY_BUFFER (base + fromIntegral i * sz') sz' ptr | 334 | glBufferSubData GL_ARRAY_BUFFER (base + fromIntegral i * sz') sz' ptr |
| 336 | 335 | ||
| 337 | Just (MarshalGLMatrix with) -> with $ \sz isrowcol ptr -> case isrowcol of | 336 | Just (MarshalGLMatrix with) -> with $ \sz isrowcol ptr -> case isrowcol of |