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
       -- | 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