diff options
| author | Griffin Smith <grfn@gws.fyi> | 2022-04-10T16·06-0400 |
|---|---|---|
| committer | clbot <clbot@tvl.fyi> | 2022-04-14T14·22+0000 |
| commit | 3c294fbabd6622b8cd60984d7ed0dd811e8885eb (patch) | |
| tree | f87e8f3afc9e32b5255d5919df9405aef3852163 /users/grfn/xanthous/src/Xanthous/App.hs | |
| parent | 79aceaec17b469dc6533470ea6c807f23eb7fe3e (diff) | |
feat(grfn/xanthous): Add a help panel r/3945
Change-Id: I581a37df0a20fa54878da4446007dbe677e057da Reviewed-on: https://cl.tvl.fyi/c/depot/+/5444 Autosubmit: grfn <grfn@gws.fyi> Reviewed-by: grfn <grfn@gws.fyi> Tested-by: BuildkiteCI
Diffstat (limited to 'users/grfn/xanthous/src/Xanthous/App.hs')
| -rw-r--r-- | users/grfn/xanthous/src/Xanthous/App.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/users/grfn/xanthous/src/Xanthous/App.hs b/users/grfn/xanthous/src/Xanthous/App.hs index a251833955cd..d4ffb226305a 100644 --- a/users/grfn/xanthous/src/Xanthous/App.hs +++ b/users/grfn/xanthous/src/Xanthous/App.hs @@ -135,6 +135,9 @@ handleNoPromptEvent _ = continue handleCommand :: Command -> AppM (Next GameState) handleCommand Quit = confirm_ ["quit", "confirm"] (liftIO exitSuccess) >> continue + +handleCommand Help = showPanel HelpPanel >> continue + handleCommand (Move dir) = do newPos <- uses characterPosition $ move dir collisionAt newPos >>= \case |