@@ -39,7 +39,7 @@ requestMouseEvents = "\ESC[?1000h\ESC[?1002h\ESC[?1006h\ESC[?1005h"
3939disableMouseEvents :: String
4040disableMouseEvents = "\ESC[?1000l\ESC[?1002l\ESC[?1006l\ESC[?1005l"
4141
42−-- | Does the specified string begin with a mouse event?"
42+-- | Does the specified string begin with a mouse event?
4343isMouseEvent :: String -> Bool
4444isMouseEvent s = isSGREvent s || isNormalEvent s
4545
@@ -81,6 +81,7 @@ rightButton = 2
8181hasBitSet :: Int -> Int -> Bool
8282hasBitSet val bit = val .&. bit > 0
8383
84+-- | Attempt to lassify an input string as a mouse event.
8485classifyMouseEvent :: String -> KClass
8586classifyMouseEvent s = runParser s $ do
8687 when (not $ isMouseEvent s) failParse