Move past/future worlds outside of serialised data structure

appDodge/Main.hs

@@ -118,7 +118,7 @@ updateRenderSplit win u = do
     return $! updateUniverse u
 
 playSoundUnlessRewinding :: Universe -> IO (M.Map SoundOrigin Sound)
-playSoundUnlessRewinding u = case w ^. cWorld . timeFlow of
+playSoundUnlessRewinding u = case w ^. timeFlow of
     NormalTimeFlow -> playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (_toPlaySounds w)
     _ -> stopAllSounds >> return M.empty
   where