Add frame clock

src/Sound/Data.hs

@@ -3,7 +3,7 @@ module Sound.Data
     where
 import qualified SDL.Mixer as Mix
 import qualified Data.IntMap.Strict as IM
-import qualified Data.Map.Strict as M
+--import qualified Data.Map.Strict as M
 import Control.Lens
 import Geometry.Data
 import Data.Word (Word8)
@@ -16,7 +16,7 @@ data SoundStatus
     | ToStart
   deriving (Eq,Ord,Show)
 
-data SoundData = SoundData
+newtype SoundData = SoundData
     {_loadedChunks :: IM.IntMap Mix.Chunk
     }
 data Sound = Sound