Try to move sound into world, slightly broken now

2021-09-08 19:12:54 +01:00
parent 04e5b9b39f
commit c3d567353c
9 changed files with 33 additions and 56 deletions
@@ -16,9 +16,8 @@ data SoundStatus
    | ToStart
  deriving (Eq,Ord,Show)

-data SoundData a = SoundData
+data SoundData = SoundData
    {_loadedChunks :: IM.IntMap Mix.Chunk
-    ,_playingSounds :: M.Map a Sound
    }
 data Sound = Sound 
    { _soundTime        :: Maybe Int