Add more sounds

src/Dodge/Terminal.hs

@@ -8,10 +8,11 @@ import Color
 import Justify
 import LensHelp
 import Sound.Data
-import ListHelp (find,safeUncons,safeHead)
+import ListHelp (safeUncons,safeHead)
 
 import Data.Char
 import Data.Maybe
+import Data.Foldable
 import qualified Data.Map.Strict as M
 import qualified Data.IntMap.Strict as IM
 import qualified Data.Text as T
@@ -234,7 +235,7 @@ basicTerminal = defaultTerminal
 
 doDeathTriggers :: Terminal -> World -> World
 doDeathTriggers tm w = w
-    & triggers %~ flip (foldr doDeathToggle) xs
+    & triggers %~ flip (foldl' $ flip doDeathToggle) xs
   where
     xs = M.elems $ _tmToggles tm
 doDeathToggle :: TerminalToggle -> IM.IntMap (World -> Bool) -> IM.IntMap (World -> Bool)