Add quicksave

2021-09-13 00:17:45 +01:00
parent 064d43f903
commit 49274064a0
11 changed files with 28 additions and 18 deletions
@@ -83,7 +83,7 @@ tryPlay sd s = do
    i <- tryGetChannel s
    _ <- liftIO $ do
        Mix.halt i
-        Mix.playOn i Mix.Once (sd IM.! (_getSoundID $ _soundChunkID s))
+        Mix.playOn i Mix.Once (sd IM.! _getSoundID (_soundChunkID s))
    return $ s 
        & soundChannel  ?~ i
        & soundStatus   .~ JustStartedPlaying