Move towards replacing F.foldM with streaming, using mutable accumulator

src/Shader.hs

@@ -23,6 +23,8 @@ import qualified Data.IntMap.Strict as IM
 --import Text.RawString.QQ
 --import Linear.Matrix
 --import Linear.V4
+--import qualified Data.Vector.Unboxed.Mutable as MV
+--import Control.Monad.Primitive
 
 bindArrayBuffers :: Int -> VBO -> IO ()
 bindArrayBuffers numVs theVBO = do