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