aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Spear/GL.hs2
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
555instance BufferData Word8 555instance BufferData Word8