diff options
| author | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-18 08:01:38 +0200 |
|---|---|---|
| committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2013-09-18 08:01:38 +0200 |
| commit | 4434619b2b1d5679697899b4bbb58a7ff2fa52b6 (patch) | |
| tree | 059d30536e1dae94e64314968c1dc51c67e0c9e8 | |
| parent | 8a7e4c5fd4bab32e99ff594c34d4d464d9d17f85 (diff) | |
| download | metatile-4434619b2b1d5679697899b4bbb58a7ff2fa52b6.tar metatile-4434619b2b1d5679697899b4bbb58a7ff2fa52b6.zip | |
| -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 |