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 | 86b0e545ae54981bd3822282ad9f9dad70cde61e (patch) | |
| tree | 4597f83df14b2fc0ffac7bfbdf43f357e4678c0b | |
| parent | a55b243dc40ebcf1f7245a3900607054a8f8ede1 (diff) | |
| download | metatile-86b0e545ae54981bd3822282ad9f9dad70cde61e.tar metatile-86b0e545ae54981bd3822282ad9f9dad70cde61e.zip | |
remove unneeded do.
darcs-hash:20070813143721-72aca-a8f85ff2342fd4140f6609dd17adbce42b13a226
| -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 () |