feat: add Ctrl-H as a synonim for Backspace

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
 
 let of_char = function
   | '\000' -> Nul
+  | '\008' | '\127' -> Backspace
   | '\009' -> Tab
   | '\013' -> Enter
   | '\027' -> Esc
-  | '\127' -> Backspace
   | c when Char.(c < ' ') -> Char.to_int c + 64 |> Char.of_int_exn |> ctrl
   | c -> Key c