@@ -130,7 +130,7 @@ classifyNormalMouseEvent = do
130130 True -> do
131131 button <- getSGRButton status
132132 return $ EvMouseDown (xCoord-1) (yCoord-1) button modifiers
133− False -> return $ EvMouseUp xCoord yCoord Nothing
133+ False -> return $ EvMouseUp (xCoord-1) (yCoord-1) Nothing
134134
135135-- Attempt to classify a control sequence as an SGR mouse event. To
136136-- get here we should have already read "\ESC[<" so that will not be
@@ -148,5 +148,5 @@ classifySGRMouseEvent = do
148148 button <- getSGRButton mods
149149 case final of
150150 '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)
152152 _ -> failParse