diff options
-rw-r--r-- | Spear/GL.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Spear/GL.hs b/Spear/GL.hs index af96da4..814099f 100644 --- a/Spear/GL.hs +++ b/Spear/GL.hs | |||
@@ -549,7 +549,7 @@ class Storable a => BufferData a where | |||
549 | -- | Set the buffer's data. | 549 | -- | Set the buffer's data. |
550 | bufferData :: TargetBuffer -> [a] -> BufferUsage -> IO () | 550 | bufferData :: TargetBuffer -> [a] -> BufferUsage -> IO () |
551 | bufferData tgt vals usage = | 551 | bufferData tgt vals usage = |
552 | let n = sizeOf (undefined :: Word8) * length vals | 552 | let n = sizeOf (head vals) * length vals |
553 | in withArray vals $ \ptr -> bufferData' tgt n ptr usage | 553 | in withArray vals $ \ptr -> bufferData' tgt n ptr usage |
554 | 554 | ||
555 | instance BufferData Word8 | 555 | instance BufferData Word8 |