Add first compo

src/Sound.hs

@@ -106,11 +106,13 @@ decrementTimer s = case _soundTime s of
                                          & soundStatus .~ FadingOut)
     Nothing -> return s
 
-applyPosition :: Sound -> IO Sound
-applyPosition s = case _soundPos s of
-    Nothing     -> return s
-    Just (a,d)  -> Mix.effectPosition (fromJust $ _soundChannel s) a d
-                    >> return (s & soundPos .~ Nothing)
+applyPosition = return
+
+--applyPosition :: Sound -> IO Sound
+--applyPosition s = case _soundPos s of
+--    Nothing     -> return s
+--    Just (a,d)  -> Mix.effectPosition (fromJust $ _soundChannel s) a d
+--                    >> return (s & soundPos .~ Nothing)
 
 fadeOutMaybe :: Maybe Mix.Channel -> Int -> IO ()
 fadeOutMaybe (Just x) fadeT = Mix.fadeOut (fromIntegral fadeT + 1) x
@@ -159,6 +161,7 @@ setChannelPos a i = do
 Behind the scenes, scales a float [0,1] to an Int [0..128].
  -}
 setSoundVolume :: Float -> IO ()
+--setSoundVolume x = Mix.setVolume (round (x * 128)) Mix.AllChannels
 setSoundVolume x = Mix.setVolume (round (x * 128)) Mix.AllChannels
 
 {- | Set the music volume.