From c20cc720dae4d5532eed4338810404460854a0b6 Mon Sep 17 00:00:00 2001
From: Jules Aguillon <jules@j3s.fr>
Date: Sat, 26 Jul 2025 23:24:47 +0200
Subject: [PATCH] Add missing signature

---
 XMonad/Util/XSelection.hs | 1 +
 1 file changed, 1 insertion(+)

diff --git a/XMonad/Util/XSelection.hs b/XMonad/Util/XSelection.hs
index 216b102b..1817a2b3 100644
--- a/XMonad/Util/XSelection.hs
+++ b/XMonad/Util/XSelection.hs
@@ -62,6 +62,7 @@ import Codec.Binary.UTF8.String (decode)
       don't know what they are, see <http://www.gnu.org/software/emacs/manual/html_node/emacs/Registers.html#Registers> -}
 
 -- Query the content of a selection in X
+getSelectionNamed :: String -> IO String
 getSelectionNamed sel_name = do
   dpy <- openDisplay ""
   let dflt = defaultScreen dpy