summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--lib/key.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/key.ml b/lib/key.ml
index 22338f4..877c214 100644
--- a/lib/key.ml
+++ b/lib/key.ml
@@ -25,10 +25,10 @@ let key c = Key c
25 25
26let of_char = function 26let 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