Continue transfer to mutable vectors

appDodge/Main.hs

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