Module reorganisation

src/Picture/Render.hs

@@ -9,7 +9,7 @@ import Shader
 import Shader.Data
 import Shader.Poke
 --import MatrixHelper
-import Picture.Preload
+import Data.Preload.Render
 import Picture.Data
 import Geometry
 
@@ -260,8 +260,8 @@ renderFoldable pdata struct = do
 
     let slist = _pictureShaders pdata
 
--- poke data, returns list of number of vertices for each shader
-    is <- F.foldM (pokeShaders slist) struct
+-- poke data, returns list buffer sizes for each shader
+    is <- F.foldM (traverse pokeShader slist) struct
 
 -- the idea of binding many buffers at once, rather than interweaving with draw
 -- calls, is to prevent opengl from waiting for a draw call to finish