diff options
| author | tv <tv@krebsco.de> | 2023-02-07 02:30:41 +0100 |
|---|---|---|
| committer | tv <tv@krebsco.de> | 2023-02-07 02:30:41 +0100 |
| commit | f28825e471e206bcb7e6dc8e4874c2b771f7d24c (patch) | |
| tree | c77f0bc9dd178c74f883f0c89d0ebd67366d381b /src/Graphics/X11/Xlib/Display/Extra.hs | |
| parent | 3bd9c00812d91ade512e71a9f8e0f5b8917c3fa7 (diff) | |
move Graphics.* & co. to lib
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 |