Cleanup

2025-01-07 00:39:59 +00:00
parent beaf65f3f7
commit 1e7611ab81
13 changed files with 76 additions and 60 deletions
@@ -90,7 +90,7 @@ tryPlay sd s = do
        & soundChannel ?~ i
        & soundStatus . playStatus .~ JustStartedPlaying
  where
-    timesToPlay | _isLooping (_soundStatus s) = Mix.Forever
+    timesToPlay | _soundIsLooping (_soundStatus s) = Mix.Forever
        | otherwise = Mix.Once

 tryGetChannel :: Sound -> MaybeT IO Mix.Channel