From aeaaf8399191adcd0cccc92ae879c41c4ff8357d Mon Sep 17 00:00:00 2001
From: Ben Boeckel <mathstuf@gmail.com>
Date: Sun, 11 Mar 2012 12:11:12 -0400
Subject: Use Xrandr support from the X11 package

---
 src/XUtil.hsc | 12 ------------
 1 file changed, 12 deletions(-)

(limited to 'src/XUtil.hsc')

diff --git a/src/XUtil.hsc b/src/XUtil.hsc
index ea051f8..558a4c5 100644
--- a/src/XUtil.hsc
+++ b/src/XUtil.hsc
@@ -28,8 +28,6 @@ module XUtil
     , fi
     , withColors
     , DynPixel(..)
-    , xrrSelectInput
-    , xrrQueryExtension
     ) where
 
 import Control.Concurrent
@@ -45,7 +43,6 @@ import System.Posix.Types (Fd(..))
 import System.IO
 #if defined XFT || defined UTF8
 # if __GLASGOW_HASKELL__ < 612
-import Foreign.C
 import qualified System.IO.UTF8 as UTF8 (readFile,hGetLine)
 # else
 import qualified System.IO as UTF8 (readFile,hGetLine)
@@ -260,12 +257,3 @@ setupLocale = withCString "" (setlocale $ #const LC_ALL) >> return ()
 setupLocale :: IO ()
 setupLocale = return ()
 #endif
-
---  XRRSelectInput
-#include <X11/extensions/Xrandr.h>
-foreign import ccall unsafe "X11/extensions/Xrandr.h XRRSelectInput"
-  xrrSelectInput :: Display -> Window -> EventMask -> IO ()
-
---  XRRQueryExtension
-foreign import ccall unsafe "X11/extensions/Xrandr.h XRRQueryExtension"
-  xrrQueryExtension :: Display -> Ptr CInt -> Ptr CInt -> IO (Bool)
-- 
cgit v1.2.3