From ff06e096480818b71da1f9330cb24c672c791c07 Mon Sep 17 00:00:00 2001
From: Joachim Fasting <joachim.fasting@gmail.com>
Date: Wed, 19 Sep 2007 23:46:34 +0200
Subject: Warp.hs: remove seemingly unused code.

darcs-hash:20070919214634-928c4-50669b8c481feafd913609d69d579be12f168ce6.gz
---
 Warp.hs | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/Warp.hs b/Warp.hs
index f18b96b..adf679e 100644
--- a/Warp.hs
+++ b/Warp.hs
@@ -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
 
-- 
cgit v1.2.3