diff options
-rw-r--r-- | lib/key.ml | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -25,10 +25,10 @@ let key c = Key c | |||
25 | 25 | ||
26 | let of_char = function | 26 | let of_char = function |
27 | | '\000' -> Nul | 27 | | '\000' -> Nul |
28 | | '\008' | '\127' -> Backspace | ||
28 | | '\009' -> Tab | 29 | | '\009' -> Tab |
29 | | '\013' -> Enter | 30 | | '\013' -> Enter |
30 | | '\027' -> Esc | 31 | | '\027' -> Esc |
31 | | '\127' -> Backspace | ||
32 | | c when Char.(c < ' ') -> Char.to_int c + 64 |> Char.of_int_exn |> ctrl | 32 | | c when Char.(c < ' ') -> Char.to_int c + 64 |> Char.of_int_exn |> ctrl |
33 | | c -> Key c | 33 | | c -> Key c |
34 | 34 | ||