diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-04-11 18:25:56 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-04-11 18:25:56 +0200 |
| commit | ae71122da6a475563c2fed228542b33325c96ae5 (patch) | |
| tree | af1d34a624b34c4d543694c915f1460566105a51 /src/XUtil.hsc | |
| parent | 247e5b85bb53ba229b444082fd2d6b7261617014 (diff) | |
| parent | f794954a1c582328a43c6674d76e15b05fee5bb5 (diff) | |
| download | xmobar-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.hsc | 12 |
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) |