aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeanne-Kamikaze <jeannekamikaze@gmail.com>2013-03-14 13:25:57 +0100
committerJeanne-Kamikaze <jeannekamikaze@gmail.com>2013-03-14 13:25:57 +0100
commit74a2ce0d65b8864186abebab07908fd1e50ab910 (patch)
treeb0f2df4bef983d4f114e3541458689c09d8f6512
parentc38a05517d24309ac755c7c0c3dae3878a076a78 (diff)
Fixed bufferData
-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