Reimplement continuous sounds (package dependencies should be reworked)

2021-02-23 20:51:05 +01:00
parent 93ab10e77e
commit 47eb0b378b
5 changed files with 63 additions and 8 deletions
@@ -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
                   }