From 74a2ce0d65b8864186abebab07908fd1e50ab910 Mon Sep 17 00:00:00 2001
From: Jeanne-Kamikaze <jeannekamikaze@gmail.com>
Date: Thu, 14 Mar 2013 13:25:57 +0100
Subject: Fixed bufferData

---
 Spear/GL.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
       -- | Set the buffer's data.
       bufferData :: TargetBuffer -> [a] -> BufferUsage -> IO ()
       bufferData tgt vals usage =
-                 let n = sizeOf (undefined :: Word8) * length vals
+                 let n = sizeOf (head vals) * length vals
                  in withArray vals $ \ptr -> bufferData' tgt n ptr usage
 
 instance BufferData Word8
-- 
cgit v1.2.3