Refactor sound

src/Sound/Data.hs

@@ -15,6 +15,9 @@ data SoundStatus
     | ToStart
   deriving (Eq,Ord,Show)
 
+newtype SoundID = SoundID { _getSoundID :: Int }
+  deriving (Eq,Ord,Show)
+
 newtype SoundData = SoundData
     {_loadedChunks :: IM.IntMap Mix.Chunk
     }
@@ -25,7 +28,7 @@ data Sound = Sound
     , _soundAngDist     :: Maybe (Int16,Word8)
     , _soundPos         :: Point2
     , _soundVolume      :: Float
-    , _soundChunkID     :: Int
+    , _soundChunkID     :: SoundID
     }
   deriving (Eq,Ord,Show)