summaryrefslogtreecommitdiffhomepage
path: root/src/XUtil.hsc
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-04-11 18:25:56 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-04-11 18:25:56 +0200
commitae71122da6a475563c2fed228542b33325c96ae5 (patch)
treeaf1d34a624b34c4d543694c915f1460566105a51 /src/XUtil.hsc
parent247e5b85bb53ba229b444082fd2d6b7261617014 (diff)
parentf794954a1c582328a43c6674d76e15b05fee5bb5 (diff)
downloadxmobar-ae71122da6a475563c2fed228542b33325c96ae5.tar.gz
xmobar-ae71122da6a475563c2fed228542b33325c96ae5.tar.bz2
Merge branch 'dev/use-x11-xrandr-support' of https://github.com/mathstuf/xmobar into mathstuf-dev/use-x11-xrandr-support
Diffstat (limited to 'src/XUtil.hsc')
-rw-r--r--src/XUtil.hsc12
1 files changed, 0 insertions, 12 deletions
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)