Continue tweaking sound

2021-09-12 20:33:33 +01:00
parent 51a85bd1ec
commit 72657294d1
89 changed files with 373 additions and 517 deletions
@@ -91,9 +91,9 @@ awakeLevelPerception cr = case _crAwakeLevel $ _crPerception cr of
 newSounds :: World -> [(Point2,Float)]
 newSounds = mapMaybe f . M.elems . _playingSounds
  where
-    f s | _soundStatus s == JustStartedPlaying
-                    = Just (_soundPos s, _soundVolume s)
-        | otherwise = Nothing
+    f s = case _soundStatus s of
+        JustStartedPlaying -> Just (_soundPos s, _soundVolume s)
+        _ -> Nothing

 rememberSounds :: Creature -> Reader World Creature
 rememberSounds cr = do