From dfa3ff346d22d332ffbadd46963f1cc5cb2a4939 Mon Sep 17 00:00:00 2001 From: tv Date: Tue, 7 Feb 2023 16:19:38 +0100 Subject: Graphics.X11: create atoms that don't exist --- lib/Graphics/X11/Xlib/Atom/Extra.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'lib/Graphics/X11/Xlib') diff --git a/lib/Graphics/X11/Xlib/Atom/Extra.hs b/lib/Graphics/X11/Xlib/Atom/Extra.hs index 444519e..d7ba0da 100644 --- a/lib/Graphics/X11/Xlib/Atom/Extra.hs +++ b/lib/Graphics/X11/Xlib/Atom/Extra.hs @@ -12,13 +12,13 @@ unsafeInternAtom atomName onlyIfExists = internAtom display atomName onlyIfExists _WIN_WORKSPACE :: Atom -_WIN_WORKSPACE = unsafeInternAtom "_WIN_WORKSPACE" True +_WIN_WORKSPACE = unsafeInternAtom "_WIN_WORKSPACE" False _WIN_WORKSPACE_NAMES :: Atom -_WIN_WORKSPACE_NAMES = unsafeInternAtom "_WIN_WORKSPACE_NAMES" True +_WIN_WORKSPACE_NAMES = unsafeInternAtom "_WIN_WORKSPACE_NAMES" False _WM_NAME :: Atom -_WM_NAME = unsafeInternAtom "WM_NAME" True +_WM_NAME = unsafeInternAtom "WM_NAME" False uTF8_STRING :: Atom -uTF8_STRING = unsafeInternAtom "UTF8_STRING" True +uTF8_STRING = unsafeInternAtom "UTF8_STRING" False -- cgit v1.2.3