Add explicit layer datatype

src/Dodge/Render.hs

@@ -17,6 +17,7 @@ import Shader.Data
 import MatrixHelper
 import Shader.ExtraPrimitive
 import Shader.Parameters
+import Picture.Data
 
 import Foreign
 import Control.Lens
@@ -45,7 +46,7 @@ doDrawing pdata u = do
         lwShad = _lightingWallShadShader pdata
     -- bind as much data into vbos as feasible at this point
     -- count mutable vectors setup
-    layerCounts  <- UMV.replicate (6*6) 0
+    layerCounts  <- UMV.replicate (numLayers*6) 0
     shapeCounts  <- UMV.replicate 3 (0 :: Int)
     wlwiflCounts <- UMV.replicate 3 (0 :: Int)
     -- attempt to poke in parallel