summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMatthias Schiffer <mschiffer@universe-factory.net>2013-09-18 08:01:38 +0200
committerMatthias Schiffer <mschiffer@universe-factory.net>2013-09-18 08:01:38 +0200
commit4434619b2b1d5679697899b4bbb58a7ff2fa52b6 (patch)
tree059d30536e1dae94e64314968c1dc51c67e0c9e8
parent8a7e4c5fd4bab32e99ff594c34d4d464d9d17f85 (diff)
downloadmetatile-4434619b2b1d5679697899b4bbb58a7ff2fa52b6.tar
metatile-4434619b2b1d5679697899b4bbb58a7ff2fa52b6.zip
Simplify motion expression in mouseDragHEADmaster
-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