Fix bug in EVE Online mining bot

In the previous version, the bot would display the error message in the beginning. The bug also led to a delay by one step at the end of each sequence.
Viir · Oct 17, 2019 · 36964bc · 36964bc
1 parent c3f15d7
commit 36964bc
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/implement/applications/eve-online/mutant-wizard-mining-bot/src/Bot.elm b/implement/applications/eve-online/mutant-wizard-mining-bot/src/Bot.elm
@@ -270,7 +270,11 @@ simpleProcessEvent eventAtTime stateBefore =
         SimpleSanderling.MemoryMeasurementCompleted memoryMeasurement ->
             let
                 remainingSequenceBefore =
-                    stateBefore.remainingSequence
+                    if 0 < (stateBefore.remainingSequence.steps |> List.length) then
+                        stateBefore.remainingSequence
+
+                    else
+                        getProgramSequence stateBefore.remainingSequence.continueWith
 
                 ( stepResult, stepDescription ) =
                     -- 'remainingSequence' stores only the remaining steps, so we always execute the first of the steps in there.
@@ -282,11 +286,7 @@ simpleProcessEvent eventAtTime stateBefore =
                             ( decideBasedOnMemoryMeasurement memoryMeasurement, currentStepDescription )
 
                 advancedSequence =
-                    if (remainingSequenceBefore.steps |> List.length) > 0 then
-                        { remainingSequenceBefore | steps = remainingSequenceBefore.steps |> List.drop 1 }
-
-                    else
-                        remainingSequenceBefore.continueWith |> getProgramSequence
+                    { remainingSequenceBefore | steps = remainingSequenceBefore.steps |> List.drop 1 }
 
                 ( remainingSequence, effects ) =
                     case stepResult of