Add modules to items, upgrades the can persist through combinations

appDodge/Main.hs

@@ -78,7 +78,7 @@ updateRenderSplit u = do
 
 playSoundUnlessRewinding :: Universe -> IO (M.Map SoundOrigin Sound)
 playSoundUnlessRewinding u
-    | _rewinding w == RewindingNow = return M.empty
+    | _timeFlow w == RewindingNow = return M.empty
     | otherwise = playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (_toPlaySounds w)
   where
     w = _uvWorld u
@@ -87,7 +87,6 @@ doSideEffects :: Universe -> IO Universe
 doSideEffects u = do
     let w = _uvWorld u
     let preData = _preloadData u
-    --newPlayingSounds <- playSoundAndUpdate (_soundData preData) (_playingSounds w) (_toPlaySounds w)
     newPlayingSounds <- playSoundUnlessRewinding u
     u' <- _sideEffects w u
     endTicks <- SDL.ticks
@@ -103,8 +102,6 @@ doSideEffects u = do
         & uvWorld . playingSounds .~ newPlayingSounds
         & uvWorld . toPlaySounds  .~ M.empty
         & uvWorld . sideEffects   .~ return
---        & uvWorld . rewinding .~ False  -- this is probably not the best place for this
-        
 
 doPreload :: IO PreloadData
 doPreload = do