Tweak sound

2021-04-05 14:34:32 +02:00
parent a7e56d727d
commit f7e0b40cd5
3 changed files with 43 additions and 9 deletions
@@ -12,11 +12,12 @@ data SoundData a = SoundData
    ,_playingSounds :: M.Map a Sound
    }
 data Sound = Sound 
-    { _soundTime :: Maybe Int
-    , _soundFadeTime :: Int
-    , _soundChannel :: Maybe Mix.Channel
-    , _soundPos :: Maybe Point2
-    , _soundType :: Int
+    { _soundTime        :: Maybe Int
+    , _soundFadeTime    :: Int
+    , _soundIsFadingOut :: Bool
+    , _soundChannel     :: Maybe Mix.Channel
+    , _soundPos         :: Maybe Point2
+    , _soundChunkID     :: Int
    }
  deriving (Eq,Ord,Show)