justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Commit before merge

Browse Source
This commit is contained in:
justin
2021-04-07 18:26:16 +02:00
parent 9a86d03fae
commit 89a6eec561
2 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/SoundLogic.hs
+1 -1
View File
@@ -65,7 +65,7 @@ resumeSound :: World -> World
resumeSound w = w
{-| Add a sound to the queue for playback.
Consider replacing with 'soundOncePos'.
Consider replacing instances with 'soundOncePos'.
-}
soundOnce :: Int -> World -> World
soundOnce i = over soundQueue ((:) (i,0))