Add frame clock

appDodge/Main.hs

@@ -63,6 +63,7 @@ doSideEffects w = do
     void $ doDrawing (_renderData preData) w
     playPositionalSoundQueue (_loadedChunks $ _soundData preData) (_soundQueue w)
     newPlayingSounds <- playSoundAndUpdate (_soundData preData) (_playingSounds w) (_sounds w)
+    w' <- _sideEffects w w
     
     endTicks <- SDL.ticks
     let lastFrameTicks = _frameTimer preData
@@ -73,9 +74,9 @@ doSideEffects w = do
                     . translate (-0.5) (-0.8) . scale 0.0005 0.0005
                     . text $ "ms/frame " ++ show (endTicks - lastFrameTicks)
                 )
-    newpdata <- foldr (=<<) (return (preData & frameTimer .~ endTicks)) (_doneSideEffects w)
-    return $ w & preloadData .~ newpdata
+    return $ w' & preloadData . frameTimer .~ endTicks
         & playingSounds .~ newPlayingSounds
+        & sideEffects .~ return
 
 doPreload :: IO PreloadData
 doPreload = do