Remove list layer while poking

src/Shader/Compile.hs

@@ -22,19 +22,20 @@ makeShader
     -> [ShaderType] -- ^ Filetype extensions
     -> [Int]   -- ^ The input vertex sizes
     -> PrimitiveMode
-    -> (RenderType -> [[[Float]]])   -- ^ Poke strategy: method for creating a list of vertex data to be bound
+    -> (RenderType -> [[Float]])   -- ^ Poke strategy: method for creating a list of vertex data to be bound
     -> IO (FullShader)
 makeShader s shaderlist sizes pm renStrat = do
     (prog,unis)  <- makeSourcedShader s shaderlist
     vaob        <- setupVAO sizes
-    return $ FullShader { _shaderProgram = prog
-                        , _shaderMatrixUniform = unis
-                        , _shaderVAO = vaob
-                        , _shaderPokeStrategy = renStrat
-                        , _shaderDrawPrimitive = pm
-                        , _shaderTexture = Nothing
-                        , _shaderCustomUnis = []
-                        }
+    return $ FullShader 
+        { _shaderProgram = prog
+        , _shaderMatrixUniform = unis
+        , _shaderVAO = vaob
+        , _shaderPokeStrategy = renStrat
+        , _shaderDrawPrimitive = pm
+        , _shaderTexture = Nothing
+        , _shaderCustomUnis = []
+        }
 
 -- | Compile shader and get its uniform locations.
 -- supposes the shader code is in the shader folder, with the string names