@@ -130,7 +130,7 @@ classifyNormalMouseEvent = do
130 True -> do
130 True -> do
131 button <- getSGRButton status
131 button <- getSGRButton status
132 return $ EvMouseDown (xCoord-1) (yCoord-1) button modifiers
132 return $ EvMouseDown (xCoord-1) (yCoord-1) button modifiers
133− False -> return $ EvMouseUp xCoord yCoord Nothing
133+ False -> return $ EvMouseUp (xCoord-1) (yCoord-1) Nothing
135-- Attempt to classify a control sequence as an SGR mouse event. To
135-- Attempt to classify a control sequence as an SGR mouse event. To
136-- get here we should have already read "\ESC[<" so that will not be
136-- get here we should have already read "\ESC[<" so that will not be
@@ -148,5 +148,5 @@ classifySGRMouseEvent = do
148 button <- getSGRButton mods
148 button <- getSGRButton mods
149 case final of
149 case final of
150 'M' -> return $ EvMouseDown (xCoord-1) (yCoord-1) button modifiers
150 'M' -> return $ EvMouseDown (xCoord-1) (yCoord-1) button modifiers
151− 'm' -> return $ EvMouseUp xCoord yCoord (Just button)
151+ 'm' -> return $ EvMouseUp (xCoord-1) (yCoord-1) (Just button)
152 _ -> failParse
152 _ -> failParse