diff options
| author | Joachim Fasting <joachim.fasting@gmail.com> | 2007-09-19 23:46:34 +0200 |
|---|---|---|
| committer | Joachim Fasting <joachim.fasting@gmail.com> | 2007-09-19 23:46:34 +0200 |
| commit | ff06e096480818b71da1f9330cb24c672c791c07 (patch) | |
| tree | 2b7ccdda9f69eaa727a125efd35d5827b8a0a522 | |
| parent | d730d8f8f5122feb3bdde12cff090f4608620d10 (diff) | |
| download | XMonadContrib-ff06e096480818b71da1f9330cb24c672c791c07.tar.gz XMonadContrib-ff06e096480818b71da1f9330cb24c672c791c07.tar.xz XMonadContrib-ff06e096480818b71da1f9330cb24c672c791c07.zip | |
Warp.hs: remove seemingly unused code.
darcs-hash:20070919214634-928c4-50669b8c481feafd913609d69d579be12f168ce6.gz
| -rw-r--r-- | Warp.hs | 4 |
1 files changed, 0 insertions, 4 deletions
@@ -21,7 +21,6 @@ module XMonadContrib.Warp ( ) where import Data.Ratio -import Data.Maybe import Data.List import Control.Monad.RWS import Graphics.X11.Xlib @@ -55,9 +54,6 @@ Note that warping to a particular screen may change the focus. fraction :: (Integral a, Integral b) => Rational -> a -> b fraction f x = floor (f * fromIntegral x) -ix :: Int -> [a] -> Maybe a -ix n = listToMaybe . take 1 . drop n - warp :: Window -> Position -> Position -> X () warp w x y = withDisplay $ \d -> io $ warpPointer d none w 0 0 0 0 x y |