From 296e120d12d4414cab6fa363a8a994e7f001d470 Mon Sep 17 00:00:00 2001 From: Humza Shahid Date: Wed, 29 Jan 2025 00:45:49 +0000 Subject: [PATCH] delete redundant case statement in enemy-behaviour.sml, where bestPath is empty (same case expression is repeated in startPatrolPatches function so doesn't need to be repeated) --- fcore/enemy-behaviour.sml | 15 +-------------- 1 file changed, 1 insertion(+), 14 deletions(-) diff --git a/fcore/enemy-behaviour.sml b/fcore/enemy-behaviour.sml index f4656e0..53f763b 100644 --- a/fcore/enemy-behaviour.sml +++ b/fcore/enemy-behaviour.sml @@ -528,20 +528,7 @@ struct in EnemyPatch.W_X_AXIS STAY_STILL :: acc end - | [] => - (case #xAxis enemy of - STAY_STILL => - let - val acc = - if #x player <= #x enemy then - EnemyPatch.W_X_AXIS MOVE_RIGHT :: acc - else - EnemyPatch.W_X_AXIS MOVE_LEFT :: acc - in - acc - end - | _ => - startPatrolPatches (player, enemy, wallTree, platformTree, acc)) + | [] => startPatrolPatches (player, enemy, wallTree, platformTree, acc) end end