From fd6cc0f9d7a2f2964e0f2030999ca54bef8d1834 Mon Sep 17 00:00:00 2001
From: hashirama <hashirama@noreply.localhost>
Date: Fri, 24 Oct 2025 03:48:27 +0000
Subject: [PATCH] identity trick

---
 watchClipboardGdk.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/watchClipboardGdk.hs b/watchClipboardGdk.hs
index 0e3dbe8..f40c8f1 100644
--- a/watchClipboardGdk.hs
+++ b/watchClipboardGdk.hs
@@ -20,7 +20,7 @@ main = do
   void $ onApplicationActivate app $ do
       window <- applicationWindowNew app
      
-      clipboard <- displayGetDefault >>= (displayGetClipboard . fromMaybe (error "No display"))
+      clipboard <- displayGetDefault >>= maybe (error "No display") (liftM id . displayGetClipboard)
       on clipboard #changed printMessage
       #show window