Make autoplay imply cheating (#1104)

I can't believe we forgot to do this small thing. 😅 - closes #816
swarm-game · Feb 12, 2023 · b62af67 · b62af67
1 parent 4c5b7f8
commit b62af67
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Swarm/TUI/Model/StateUpdate.hs b/src/Swarm/TUI/Model/StateUpdate.hs
@@ -53,7 +53,7 @@ initAppState AppOpts {..} = do
   let isRunningInitialProgram = isJust scriptToRun || autoPlay
       skipMenu = isJust userScenario || isRunningInitialProgram || isJust userSeed
   gs <- initGameState
-  (warnings, ui) <- initUIState (not skipMenu) cheatMode
+  (warnings, ui) <- initUIState (not skipMenu) (cheatMode || autoPlay)
   let logWarning rs w = rs & eventLog %~ logEvent (ErrorTrace Error) ("UI Loading", -8) (prettyFailure w)
   let rs = List.foldl' logWarning initRuntimeState warnings
   case skipMenu of