summaryrefslogtreecommitdiffstats
path: root/MetaTile
diff options
context:
space:
mode:
Diffstat (limited to 'MetaTile')
-rw-r--r--MetaTile/Operations.hs4
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