Mouse: fail event parsing when the mouse event header does not match
commit0508f83ee6094759b0e4f56fd743a2004d287c1f
authorJonathan Daugherty <cygnus@foobox.com>
dateFri 17 Jun 2016, 17:30 (10 years ago)
parentd51d9bd
src/Graphics/Vty/Input/Mouse.hs+1
@@ -90,6 +90,7 @@ classifyMouseEvent s = runParser s $ do
9090 case ty of
9191 '<' -> classifySGRMouseEvent
9292 'M' -> classifyNormalMouseEvent
93+ _ -> failParse
9394
9495-- Given a modifer/button value, determine which button was indicated
9596getSGRButton :: Int -> Parser Button