Cleanup (remove) _soundData, _musicData

src/Sound/Data.hs

@@ -11,7 +11,6 @@ import Data.Aeson.TH
 import Data.Int (Int16)
 import Data.Word (Word8)
 import Geometry.Data
-import qualified IntMapHelp as IM
 import qualified SDL.Mixer as Mix
 
 data SoundStatus = SoundStatus
@@ -33,10 +32,6 @@ data PlayStatus
 newtype SoundID = SoundID {_getSoundID :: Int}
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
-newtype SoundData = SoundData
-    { _loadedChunks :: IM.IntMap Mix.Chunk
-    }
-
 data ToPlaySound = ToPlaySound
     { _toPlaySoundTime :: Maybe Int
     , _toPlaySoundStatus :: SoundStatus
@@ -59,7 +54,6 @@ data Sound = Sound
     }
     deriving (Eq, Ord, Show)
 
-makeLenses ''SoundData
 makeLenses ''Sound
 makeLenses ''SoundID
 makeLenses ''SoundStatus