Refactor sounds

2021-09-09 14:58:07 +01:00
parent be7b2d2cd7
commit 70c97f5367
26 changed files with 113 additions and 162 deletions
@@ -39,7 +39,6 @@ import GHC.Generics
 import Control.Lens
 import System.Random
 import Data.Graph.Inductive
-import Data.Int (Int16)
 import qualified Data.Set as S
 import qualified Data.IntSet as IS
 import qualified Data.IntMap.Strict as IM
@@ -76,7 +75,6 @@ data World = World
    , _worldEvents          :: World -> World
    , _pressPlates          :: IM.IntMap PressPlate
    , _buttons              :: IM.IntMap Button
-    , _soundQueue           :: [(Int,Int16)]
    , _sounds               :: M.Map SoundOrigin Sound
    , _playingSounds        :: M.Map SoundOrigin Sound
    , _decorations          :: IM.IntMap Picture