Tweak corpses

2026-02-11 09:57:01 +00:00
parent e608664f11
commit 38eef8fd54
4 changed files with 10 additions and 24 deletions
@@ -1,4 +1,5 @@
 {-# LANGUAGE LambdaCase #-}
+
 module Dodge.Creature.Vocalization (
    crWarningSounds,
    crDeathSounds,
@@ -56,14 +57,7 @@ defaultDeathSounds = \case
    CookDeath -> mempty
    PoisonDeath -> mempty
    PlainDeath -> mempty
-    GibsDeath -> 
-        [gut1S
-        ,gut2S
-        ,gut3S
-        ,gut4S
-        ,gut5S
-        ,gut6S
-        ]
+    GibsDeath -> [gut1S, gut2S, gut3S, gut4S, gut5S, gut6S]

 vocalizationTest :: Creature -> Maybe SoundID
 vocalizationTest cr = case cr ^? crVocalization . vcCoolDown of