Refactor sound

2021-09-12 17:52:34 +01:00
parent ea333a363b
commit 51a85bd1ec
97 changed files with 409 additions and 177 deletions
@@ -82,7 +82,7 @@ tryPlay sd s = do
    i <- tryGetChannel s
    _ <- liftIO $ do
        Mix.halt i
-        Mix.playOn i Mix.Once (sd IM.! _soundChunkID s)
+        Mix.playOn i Mix.Once (sd IM.! (_getSoundID $ _soundChunkID s))
    return $ s 
        & soundChannel  ?~ i
        & soundStatus   .~ JustStartedPlaying