Reimplement continuous sounds (package dependencies should be reworked)

src/Dodge/Data.hs

@@ -245,7 +245,8 @@ data MenuState
 
 data Sound = Sound { _soundTime :: Int
                    , _soundFadeTime :: Int
-                   , _soundChannel :: Maybe Int
+                   --, _soundChannel :: Maybe Int
+                   , _soundChannel :: Maybe Mix.Channel
                    , _soundPos :: Maybe Point2
                    , _soundType :: Int
                    }

src/Dodge/Update.hs

@@ -63,6 +63,7 @@ update w
                   cid = _clID cr
 
 updateSoundQueue = set soundQueue []
+                    . set sounds M.empty
 
 --updateSound :: World -> World
 --updateSound = set soundQueue [] . stepSoundTimers