From 4434619b2b1d5679697899b4bbb58a7ff2fa52b6 Mon Sep 17 00:00:00 2001
From: Matthias Schiffer <mschiffer@universe-factory.net>
Date: Wed, 18 Sep 2013 08:01:38 +0200
Subject: Simplify motion expression in mouseDrag

---
 MetaTile/Operations.hs | 4 +---
 1 file changed, 1 insertion(+), 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
-- 
cgit v1.2.3