Add debug command to reveal the game

Add a (debug) command to reveal all tiles on the game regardless of the
character's vision, which'll make it easier to debug creature's behavior
while they're not visible.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/Xanthous/App.hs b/src/Xanthous/App.hs
index 8d9ea54f0f7c..cff4a4d611e3 100644
--- a/src/Xanthous/App.hs
+++ b/src/Xanthous/App.hs
@@ -155,6 +155,13 @@ handleCommand Open = do
 
 handleCommand Wait = stepGame >> continue
 
+handleCommand ToggleRevealAll = do
+  val <- debugState . allRevealed <%= not
+  say ["debug", "toggleRevealAll"] $ object [ "revealAll" A..= val ]
+  continue
+
+--------------------------------------------------------------------------------
+
 handlePromptEvent
   :: Text -- ^ Prompt message
   -> Prompt AppM