Cleanup preload, add basic frame time checking

2021-03-24 18:41:29 +01:00
parent f45ca2dd24
commit 3a52f3feaf
5 changed files with 40 additions and 43 deletions
@@ -12,7 +12,6 @@ import qualified Data.Map as M

 import Control.Lens

-
 playSoundQueue :: SoundData a -> [Int] -> IO ()
 playSoundQueue sd ns = 
    forM_ ns $ \n -> playIfFree (_loadedChunks sd IM.! n) Mix.Once