diff options
| author | Ben Boeckel <mathstuf@gmail.com> | 2012-03-11 12:11:12 -0400 |
|---|---|---|
| committer | Ben Boeckel <mathstuf@gmail.com> | 2012-03-11 13:42:58 -0400 |
| commit | aeaaf8399191adcd0cccc92ae879c41c4ff8357d (patch) | |
| tree | 12f9258f38c6b6cdbdc6a46d9d4c1a1273a4674f /src/XUtil.hsc | |
| parent | d66bad19cda7db831095d3fa68a550887e03514b (diff) | |
| download | xmobar-aeaaf8399191adcd0cccc92ae879c41c4ff8357d.tar.gz xmobar-aeaaf8399191adcd0cccc92ae879c41c4ff8357d.tar.bz2 | |
Use Xrandr support from the X11 package
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) |