compose better

watchClipboardGdk.hs

@@ -8,7 +8,7 @@ import Data.Maybe
 import GI.Gdk
 import GI.Gtk
 import GI.Gio hiding (Application)
-import Control.Monad (void)
+import Control.Monad 
 
 printMessage :: IO ()
 printMessage = do
@@ -19,12 +19,10 @@ main = do
   app <- new Application []
   void $ onApplicationActivate app $ do
       window <- applicationWindowNew app
-      monitor <- displayGetDefault
-      let display = fromMaybe (error "No display") monitor
-      clipboard <- displayGetClipboard display
+     
+      clipboard <- displayGetDefault >>= (displayGetClipboard . fromMaybe (error "No display"))
       on clipboard #changed printMessage
       #show window
-    
-      
+         
   _ <- applicationRun app Nothing
   return ()