Stop all sound when stopping time

src/Dodge/Data/World.hs

@@ -23,7 +23,6 @@ import Dodge.Data.SoundOrigin
 import Geometry.Data
 import SDL (MouseButton, Scancode)
 import Sound.Data
-import MaybeHelp
 import System.Random
 
 data World = World
@@ -45,23 +44,9 @@ data World = World
     , _rSelect :: Point2
     , _clickMousePos :: Point2
     , _backspaceTimer :: Int
-    , _timeFlow :: TimeFlowStatus
     , _rbOptions :: RightButtonOptions
-    , _cwTime :: CWTime
     }
 
-data TimeFlowStatus
-    = RewindingNow
-    | RewindingLastFrame
-    | NormalTimeFlow
-    | ScrollTimeFlow
-        { _scrollSmoothing :: Int 
-        , _reverseAmount :: Int
-        , _futureWorlds :: [CWorld]
-        , _scrollItemLocation :: Int
-        }
-    | RewindLeftClick
-        { _reverseAmount :: Int }
 --    deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data WorldHammer
@@ -69,14 +54,4 @@ data WorldHammer
     | DoubleMouseHam
     deriving (Eq, Ord, Show, Read, Enum, Bounded)
 
-data CWTime = CWTime
-    { _maybeWorld :: Maybe' CWorld
-    , _pastWorlds :: [CWorld]
-    , _pastWorldsNum :: Int
-    , _worldClock :: Int
-    , _deathDelay :: Maybe Int
-    }
-
 makeLenses ''World
-makeLenses ''CWTime
-makeLenses ''TimeFlowStatus