Skip to content

Commit

Permalink
fix #173
Browse files Browse the repository at this point in the history
  • Loading branch information
Yatao Li committed Dec 18, 2020
1 parent 9697d59 commit 82dd513
Showing 1 changed file with 1 addition and 0 deletions.
1 change: 1 addition & 0 deletions input.fs
View file
Original file line number Diff line number Diff line change
Expand Up @@ -184,6 +184,7 @@ let (|Mouse|Special|Normal|ImeEvent|TextInput|Unrecognized|) (x: InputEvent) =
(Key.NumPad0 | Key.NumPad1 | Key.NumPad2 | Key.NumPad3
| Key.NumPad4 | Key.NumPad5 | Key.NumPad6 | Key.NumPad7
| Key.NumPad8 | Key.NumPad9)) -> Special("k" + string(x.ToString() |> Seq.last))
| Key(_, Key.Decimal) -> Normal "."
| Key(NoFlag(KeyModifiers.Shift), Key.OemComma) -> Normal ","
| Key(NoFlag(KeyModifiers.Shift), Key.OemPeriod) -> Normal "."
| Key(HasFlag(KeyModifiers.Shift), Key.OemPeriod) -> Normal ">"
Expand Down

0 comments on commit 82dd513

Please sign in to comment.