diff options
Diffstat (limited to 'users/grfn/xanthous/src/Xanthous/Command.hs')
| -rw-r--r-- | users/grfn/xanthous/src/Xanthous/Command.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/users/grfn/xanthous/src/Xanthous/Command.hs b/users/grfn/xanthous/src/Xanthous/Command.hs index 1d0014d78792..30359c6c6407 100644 --- a/users/grfn/xanthous/src/Xanthous/Command.hs +++ b/users/grfn/xanthous/src/Xanthous/Command.hs @@ -24,6 +24,7 @@ data Command | Save | Read | ShowInventory + | DescribeInventory | Wield | GoUp | GoDown @@ -50,6 +51,7 @@ commandFromKey (KChar 'e') [] = Just Eat commandFromKey (KChar 'S') [] = Just Save commandFromKey (KChar 'r') [] = Just Read commandFromKey (KChar 'i') [] = Just ShowInventory +commandFromKey (KChar 'I') [] = Just DescribeInventory commandFromKey (KChar 'w') [] = Just Wield commandFromKey (KChar '<') [] = Just GoUp commandFromKey (KChar '>') [] = Just GoDown |