diff options
Diffstat (limited to 'src/Graphics/X11/Xlib/Display/Extra.hs')
| -rw-r--r-- | src/Graphics/X11/Xlib/Display/Extra.hs | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/src/Graphics/X11/Xlib/Display/Extra.hs b/src/Graphics/X11/Xlib/Display/Extra.hs deleted file mode 100644 index 16b1a74..0000000 --- a/src/Graphics/X11/Xlib/Display/Extra.hs +++ /dev/null @@ -1,20 +0,0 @@ -module Graphics.X11.Xlib.Display.Extra where - -import Control.Exception (bracket) -import System.Environment (getEnv) -import System.IO.Unsafe (unsafePerformIO) -import Graphics.X11.Xlib.Types (Display) -import Graphics.X11.Xlib.Display (closeDisplay, openDisplay) - - -defaultDisplayName :: String -defaultDisplayName = - unsafePerformIO (getEnv "DISPLAY") - -withDisplay :: String -> (Display -> IO a) -> IO a -withDisplay display = - bracket (openDisplay display) closeDisplay - -withDefaultDisplay :: (Display -> IO a) -> IO a -withDefaultDisplay = - withDisplay defaultDisplayName |