From b62af6762103ba9a935b82b40f0104e0811ca807 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ond=C5=99ej=20=C5=A0ebek?=
 <44544735+xsebek@users.noreply.github.com>
Date: Sun, 12 Feb 2023 19:44:30 +0100
Subject: [PATCH] Make autoplay imply cheating (#1104)

I can't believe we forgot to do this small thing. :sweat_smile:

- closes #816
---
 src/Swarm/TUI/Model/StateUpdate.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Swarm/TUI/Model/StateUpdate.hs b/src/Swarm/TUI/Model/StateUpdate.hs
index 395bc1c59..5e4eb19e3 100644
--- 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