13 lines
398 B
Haskell
13 lines
398 B
Haskell
module Dodge.SoundSelection (newSoundsToPlay) where
|
|
|
|
import Sound.Data
|
|
import Dodge.Data.Universe
|
|
import qualified Data.Map.Strict as M
|
|
import Control.Lens
|
|
|
|
newSoundsToPlay :: Universe -> M.Map SoundOrigin Sound
|
|
newSoundsToPlay u = case u ^. uvWorld . wSoundFilter of
|
|
NoSoundFilter -> u ^. uvWorld . toPlaySounds
|
|
FilterBySoundOrigin ks -> (u ^. uvWorld . toPlaySounds) `M.restrictKeys` ks
|
|
|