Various cleanups

2021-10-29 18:40:28 +01:00
parent 4480d0f7c7
commit d5d4c93007
8 changed files with 25 additions and 116 deletions
@@ -66,8 +66,7 @@ updateSounds sd ss = do
    return $ M.mapMaybe id may

 updateSound :: IM.IntMap Mix.Chunk -> Sound -> MaybeT IO Sound
-updateSound sd s =
-    initialisePlaying sd s 
+updateSound sd s = initialisePlaying sd s 
    >>= liftIO . (decrementTimer >=> applyPosition) 
    >>= cleanupHalted