diff --git a/src/Init.hs b/src/Init.hs index 8a89bbd..087a683 100644 --- a/src/Init.hs +++ b/src/Init.hs @@ -42,7 +42,7 @@ load = do GL.bindBuffer GL.ArrayBuffer $= Just verts withArray (loTriangles lobj) $ \ptr -> GL.bufferData GL.ArrayBuffer $= - ( fromIntegral $ length (loTriangles lobj) * 3 * sizeOf (0 :: Double) + ( fromIntegral $ length (loTriangles lobj) {-* 3-} * sizeOf (0 :: Double) , ptr , GL.StaticDraw )