From ba956ea3d6610ca6b3ea22f48d0ae06c6a0368c5 Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 6 Feb 2020 05:24:47 +0100 Subject: [PATCH] ??? --- src/Init.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 )