Cleanup

2025-08-27 18:55:25 +01:00
parent 86696deb56
commit 40d2d316cb
35 changed files with 316 additions and 431 deletions
@@ -93,9 +93,9 @@ doTmWdWd tmwdwd = case tmwdwd of
    TmWdId -> const id
    TmWdWdPowerDownTerminal -> resetTerminal TerminalOff
    TmWdWdDeactivateTerminal -> resetTerminal TerminalDeactivated
-    TmWdWdTermSound sid -> \tm w ->
-        let tpos = fromMaybe 0 $ w ^? cWorld . lWorld . buttons . ix (_tmButtonID tm) . btPos
-         in soundStart TerminalSound tpos sid Nothing w
+    TmWdWdTermSound sid -> \tm w -> fromMaybe w $ do
+        tpos <- w ^? cWorld . lWorld . buttons . ix (_tmButtonID tm) . btPos
+        return $ soundStart TerminalSound tpos sid Nothing w
    TmWdWdDoDeathTriggers -> doDeathTriggers
    TmWdWdfromWdWd f -> \_ -> doWdWd f