Revert "Continue transfer to mutable vectors"

This reverts commit 1f2f5431c0.

appDodge/Main.hs

@@ -12,7 +12,6 @@ import Dodge.Config.Load
 import Dodge.Config.Update
 import Dodge.SoundLogic.LoadSound
 import Dodge.Debug.Flag.Data
-import Data.Preload.Render
 import Picture
 import Render
 import Preload.Render
@@ -21,7 +20,6 @@ import Preload
 import Sound.Data
 import Music
 import Data.Preload
-import Shader.Poke
 
 import Control.Lens
 --import Foreign (Word32)
@@ -56,9 +54,8 @@ doSideEffects preData w = do
     
     endTicks <- SDL.ticks
     let lastFrameTicks = _frameTimer preData
-    shads <- picShadToMV $ _pictureShaders $ _renderData preData
     when (_displaySecondsPerFrame $ _debugFlags w) $ void $ renderFoldable
-                shads
+                (_renderData preData)
                 (setDepth (-1)
                     . translate (-0.5) (-0.8) . scale 0.0005 0.0005
                     . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)