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/Atom/Extra.hs | 39 ------------------------------------- 1 file changed, 39 deletions(-) delete mode 100644 src/Graphics/X11/Xlib/Atom/Extra.hs (limited to 'src/Graphics/X11/Xlib/Atom') diff --git a/src/Graphics/X11/Xlib/Atom/Extra.hs b/src/Graphics/X11/Xlib/Atom/Extra.hs deleted file mode 100644 index 8442c48..0000000 --- a/src/Graphics/X11/Xlib/Atom/Extra.hs +++ /dev/null @@ -1,39 +0,0 @@ -module Graphics.X11.Xlib.Atom.Extra where - -import Graphics.X11.Types (Atom) -import Graphics.X11.Xlib.Atom (internAtom) -import Graphics.X11.Xlib.Display.Extra (withDefaultDisplay) -import System.IO.Unsafe (unsafePerformIO) - - -unsafeInternAtom :: String -> Bool -> Atom -unsafeInternAtom atomName onlyIfExists = - unsafePerformIO $ withDefaultDisplay $ \display -> - internAtom display atomName onlyIfExists - -_NET_ACTIVE_WINDOW :: Atom -_NET_ACTIVE_WINDOW = unsafeInternAtom "_NET_ACTIVE_WINDOW" True - -_NET_CLIENT_LIST :: Atom -_NET_CLIENT_LIST = unsafeInternAtom "_NET_CLIENT_LIST" True - -_NET_CURRENT_DESKTOP :: Atom -_NET_CURRENT_DESKTOP = unsafeInternAtom "_NET_CURRENT_DESKTOP" True - -_NET_DESKTOP_NAMES :: Atom -_NET_DESKTOP_NAMES = unsafeInternAtom "_NET_DESKTOP_NAMES" True - -_NET_WM_DESKTOP :: Atom -_NET_WM_DESKTOP = unsafeInternAtom "_NET_WM_DESKTOP" True - -_NET_WM_NAME :: Atom -_NET_WM_NAME = unsafeInternAtom "_NET_WM_NAME" True - -_WIN_WORKSPACE :: Atom -_WIN_WORKSPACE = unsafeInternAtom "_WIN_WORKSPACE" True - -_WIN_WORKSPACE_NAMES :: Atom -_WIN_WORKSPACE_NAMES = unsafeInternAtom "_WIN_WORKSPACE_NAMES" True - -_WM_NAME :: Atom -_WM_NAME = unsafeInternAtom "WM_NAME" True -- cgit v1.2.3