diff options
Diffstat (limited to 'src/Xanthous/App.hs')
| -rw-r--r-- | src/Xanthous/App.hs | 7 |
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 |