diff options
Diffstat (limited to 'src/Xanthous/Command.hs')
| -rw-r--r-- | src/Xanthous/Command.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Xanthous/Command.hs b/src/Xanthous/Command.hs index 7b689c6466e4..3547bdf09ab0 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -21,6 +21,7 @@ data Command | Save | Read | ShowInventory + | Wield -- | TODO replace with `:` commands | ToggleRevealAll @@ -37,7 +38,9 @@ commandFromKey (KChar 'e') [] = Just Eat commandFromKey (KChar 'S') [] = Just Save commandFromKey (KChar 'r') [] = Just Read commandFromKey (KChar 'i') [] = Just ShowInventory +commandFromKey (KChar 'w') [] = Just Wield +-- DEBUG COMMANDS -- commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll commandFromKey _ _ = Nothing |