diff options
Diffstat (limited to 'src/Xanthous/Command.hs')
| -rw-r--r-- | src/Xanthous/Command.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Xanthous/Command.hs b/src/Xanthous/Command.hs index 35a8ce3672..61fb11b22e 100644 --- a/src/Xanthous/Command.hs +++ b/src/Xanthous/Command.hs @@ -19,6 +19,7 @@ data Command | Eat | Look | Save + | Read -- | TODO replace with `:` commands | ToggleRevealAll @@ -33,6 +34,7 @@ commandFromKey (KChar 'o') [] = Just Open commandFromKey (KChar ';') [] = Just Look commandFromKey (KChar 'e') [] = Just Eat commandFromKey (KChar 'S') [] = Just Save +commandFromKey (KChar 'r') [] = Just Read commandFromKey (KChar 'r') [MMeta] = Just ToggleRevealAll |