Work on time scrolling

appDodge/Main.hs

@@ -105,9 +105,9 @@ updateRenderSplit u = do
     return $! updateUniverse u
 
 playSoundUnlessRewinding :: Universe -> IO (M.Map SoundOrigin Sound)
-playSoundUnlessRewinding u
-    | _timeFlow w == RewindingNow = return M.empty
-    | otherwise = playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (_toPlaySounds w)
+playSoundUnlessRewinding u = case w ^. timeFlow of
+    NormalTimeFlow -> playSoundAndUpdate (_soundData $ _preloadData u) (_playingSounds w) (_toPlaySounds w)
+    _ -> return M.empty
   where
     w = _uvWorld u