@@ -33,11 +33,11 @@ import Data.Bits ((.&.))
3333-- | These sequences set xterm-based terminals to send mouse event
3434-- sequences.
3535requestMouseEvents :: String
36−requestMouseEvents = "\ESC[?1000h\ESC[?1002h\ESC[?1006h\ESC[?1005h"
36+requestMouseEvents = "\ESC[?1000h\ESC[?1002h\ESC[?1006h"
3737
3838-- | These sequences disable mouse events.
3939disableMouseEvents :: String
40−disableMouseEvents = "\ESC[?1000l\ESC[?1002l\ESC[?1006l\ESC[?1005l"
40+disableMouseEvents = "\ESC[?1000l\ESC[?1002l\ESC[?1006l"
4141
4242-- | Does the specified string begin with a mouse event?
4343isMouseEvent :: String -> Bool