From f28825e471e206bcb7e6dc8e4874c2b771f7d24c Mon Sep 17 00:00:00 2001 From: tv Date: Tue, 7 Feb 2023 02:30:41 +0100 Subject: move Graphics.* & co. to lib --- src/Graphics/X11/Xlib/Display/Extra.hs | 20 -------------------- 1 file changed, 20 deletions(-) delete mode 100644 src/Graphics/X11/Xlib/Display/Extra.hs (limited to 'src/Graphics/X11/Xlib/Display/Extra.hs') 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 -- cgit v1.2.3