git.iko.soy/vty
on master help sign in
No longer enable UTF8 mouse event encoding
b4111ddJonathan Daugherty
src/Graphics/Vty/Input/Mouse.hs+2−2
compare with master
unifiedsplit
@@ -33,11 +33,11 @@ import Data.Bits ((.&.))
33-- | These sequences set xterm-based terminals to send mouse event
33-- | These sequences set xterm-based terminals to send mouse event
34-- sequences.
34-- sequences.
35requestMouseEvents :: String
35requestMouseEvents :: String
36−requestMouseEvents = "\ESC[?1000h\ESC[?1002h\ESC[?1006h\ESC[?1005h"
36+requestMouseEvents = "\ESC[?1000h\ESC[?1002h\ESC[?1006h"
37
37
38-- | These sequences disable mouse events.
38-- | These sequences disable mouse events.
39disableMouseEvents :: String
39disableMouseEvents :: String
40−disableMouseEvents = "\ESC[?1000l\ESC[?1002l\ESC[?1006l\ESC[?1005l"
40+disableMouseEvents = "\ESC[?1000l\ESC[?1002l\ESC[?1006l"
41
41
42-- | Does the specified string begin with a mouse event?
42-- | Does the specified string begin with a mouse event?
43isMouseEvent :: String -> Bool
43isMouseEvent :: String -> Bool