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/Extras/Extra.hs | |
| parent | 3bd9c00812d91ade512e71a9f8e0f5b8917c3fa7 (diff) | |
move Graphics.* & co. to lib
Diffstat (limited to 'src/Graphics/X11/Xlib/Extras/Extra.hs')
| -rw-r--r-- | src/Graphics/X11/Xlib/Extras/Extra.hs | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/src/Graphics/X11/Xlib/Extras/Extra.hs b/src/Graphics/X11/Xlib/Extras/Extra.hs deleted file mode 100644 index d88bf9d..0000000 --- a/src/Graphics/X11/Xlib/Extras/Extra.hs +++ /dev/null @@ -1,14 +0,0 @@ -module Graphics.X11.Xlib.Extras.Extra where - -import Data.Text (Text) -import Foreign.C.String.Extra (castCCharToWord8) -import qualified Data.ByteString as ByteString -import qualified Data.Text.Encoding.Extra as Text -import qualified Graphics.X11 as X11 -import qualified Graphics.X11.Xlib.Extras as X11 - - -getWindowPropertyText :: X11.Display -> X11.Atom -> X11.Window -> IO (Maybe Text) -getWindowPropertyText d a w = - fmap (Text.decodeUtf8Lenient . ByteString.pack . map castCCharToWord8) <$> - X11.getWindowProperty8 d a w |