identity trick

2025-10-24 03:48:27 +00:00 · 2025-10-24 03:48:27 +00:00 · fd6cc0f9d7
commit fd6cc0f9d7
parent 4faba8f6c0
1 changed files with 1 additions and 1 deletions
--- 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