diff options
| -rw-r--r-- | MetaTile/Operations.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/MetaTile/Operations.hs b/MetaTile/Operations.hs index 32b33fb..3bd072d 100644 --- a/MetaTile/Operations.hs +++ b/MetaTile/Operations.hs @@ -478,9 +478,7 @@ mouseDrag f done = do withDisplay $ io . flip ungrabPointer currentTime modify $ \s -> s { dragging = Nothing } done - motion x y = do z <- f x y - clearEvents pointerMotionMask - return z + motion x y = f x y >> clearEvents pointerMotionMask -- --------------------------------------------------------------------- -- | Support for window size hints |