From 86b0e545ae54981bd3822282ad9f9dad70cde61e Mon Sep 17 00:00:00 2001 From: David Roundy Date: Mon, 13 Aug 2007 16:37:21 +0200 Subject: remove unneeded do. darcs-hash:20070813143721-72aca-a8f85ff2342fd4140f6609dd17adbce42b13a226 --- Operations.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/Operations.hs b/Operations.hs index f4a9d88..6e21120 100644 --- a/Operations.hs +++ b/Operations.hs @@ -529,9 +529,8 @@ mouseMoveWindow w = whenX (isClient w) $ withDisplay $ \d -> do (_, _, _, ox', oy', _, _, _) <- io $ queryPointer d w let ox = fromIntegral ox' oy = fromIntegral oy' - mouseDrag (\ex ey -> do - io $ moveWindow d w (fromIntegral (fromIntegral (wa_x wa) + (ex - ox))) - (fromIntegral (fromIntegral (wa_y wa) + (ey - oy)))) + mouseDrag (\ex ey -> io $ moveWindow d w (fromIntegral (fromIntegral (wa_x wa) + (ex - ox))) + (fromIntegral (fromIntegral (wa_y wa) + (ey - oy)))) (float w) mouseResizeWindow :: Window -> X () -- cgit v1.2.3