diff options
-rw-r--r-- | lib/key.ml | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -27,7 +27,7 @@ let of_char = function | |||
27 | | '\000' -> Nul | 27 | | '\000' -> Nul |
28 | | '\008' | '\127' -> Backspace | 28 | | '\008' | '\127' -> Backspace |
29 | | '\009' -> Tab | 29 | | '\009' -> Tab |
30 | | '\013' -> Enter | 30 | | '\010' | '\013' -> Enter |
31 | | '\027' -> Esc | 31 | | '\027' -> Esc |
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 |