Add Read instances

src/Sound/Data.hs

@@ -22,7 +22,7 @@ data PlayStatus
     | ToStop
   deriving (Eq,Ord,Show)
 newtype SoundID = SoundID { _getSoundID :: Int }
-  deriving (Eq,Ord,Show)
+  deriving (Eq,Ord,Show,Read)
 newtype SoundData = SoundData
     {_loadedChunks :: IM.IntMap Mix.Chunk
     }