Stop all sound when stopping time

src/Dodge/Default/World.hs

@@ -7,10 +7,8 @@ import Dodge.Data.World
 import Geometry.Data
 import Geometry.Polygon
 import qualified IntMapHelp as IM
-import MaybeHelp
 import System.Random
 
---import Data.Graph.Inductive.NodeMap
 defaultWorld :: World
 defaultWorld =
     World
@@ -32,9 +30,7 @@ defaultWorld =
         , _lSelect = 0
         , _rSelect = 0
         , _backspaceTimer = 0
-        , _timeFlow = NormalTimeFlow
         , _rbOptions = NoRightButtonOptions
-        , _cwTime = defaultCWTime
         }
 
 defaultCWGen :: CWGen
@@ -66,6 +62,9 @@ defaultCWorld =
     CWorld
         { _lWorld = defaultLWorld
         , _cwGen = defaultCWGen
+        , _cwClock = 0
+        , _pastWorlds = []
+        , _timeFlow = NormalTimeFlow
         }
 
 defaultLWorld :: LWorld
@@ -134,16 +133,7 @@ defaultLWorld =
         , _selLocation = 0
         , _foregroundShapes = mempty
         , _distortions = []
-        }
-
-defaultCWTime :: CWTime
-defaultCWTime =
-    CWTime
-        { _worldClock = 0
-        , _maybeWorld = Nothing'
-        , _pastWorlds = []
-        , _pastWorldsNum = 0
-        , _deathDelay = Nothing
+        , _lClock = 0
         }
 
 defaultHUD :: HUD