Add (ugly) support for fractional volumes

2022-04-05 09:26:57 +01:00
parent 31d5bcd0bb
commit bca1236a85
12 changed files with 228 additions and 38 deletions
@@ -87,7 +87,7 @@ tryPlay sd s = do
        Mix.halt i
        Mix.playOn i timesToPlay (sd IM.! _getSoundID (_soundChunkID s))
    return $ s 
-        & soundChannel  ?~ i
+        & soundChannel ?~ i
        & soundStatus . playStatus .~ JustStartedPlaying
  where
    timesToPlay | _isLooping (_soundStatus s) = Mix.Forever