diff options
author | David Roundy <droundy@darcs.net> | 2007-08-13 16:37:21 +0200 |
---|---|---|
committer | David Roundy <droundy@darcs.net> | 2007-08-13 16:37:21 +0200 |
commit | 763821d36d84432a5716a5d0485139b4d23e251c (patch) | |
tree | 4597f83df14b2fc0ffac7bfbdf43f357e4678c0b /Operations.hs | |
parent | 06822ab5ff82d1aa47a2beaed6b5f3a46a163bb3 (diff) | |
download | xmonad-763821d36d84432a5716a5d0485139b4d23e251c.tar.gz xmonad-763821d36d84432a5716a5d0485139b4d23e251c.tar.xz xmonad-763821d36d84432a5716a5d0485139b4d23e251c.zip |
remove unneeded do.
darcs-hash:20070813143721-72aca-a8f85ff2342fd4140f6609dd17adbce42b13a226.gz
Diffstat (limited to '')
-rw-r--r-- | Operations.hs | 5 |
1 files 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 () |