Cleanup

2025-01-07 00:39:59 +00:00
parent beaf65f3f7
commit 1e7611ab81
13 changed files with 76 additions and 60 deletions
@@ -84,7 +84,7 @@ aSound vol status fpos sType mtime w =
        , _soundStatus =
            SoundStatus
                { _playStatus = status
-                , _isLooping = isJust mtime
+                , _soundIsLooping = isJust mtime
                }
        , _soundChannel = Nothing
        , _soundAngDist = Just (a, floor (225 * (1 - vol)))
@@ -192,7 +192,7 @@ soundMultiFrom (so : sos) pos sType mtime w
            , _soundStatus =
                SoundStatus
                    { _playStatus = ToStart
-                    , _isLooping = isJust mtime
+                    , _soundIsLooping = isJust mtime
                    }
            , _soundChannel = Nothing
            , _soundAngDist = Just (a, 0)