xmonad-utils 0.1.3.2 → 0.1.3.2.1

raw patch · 2 files changed

+6/−6 lines, 2 files

Files

• src/Hhp.hs +5/−5
• xmonad-utils.cabal +1/−1

@@ -3,7 +3,7 @@ -- Module      :  Hhp -- Copyright   :  (c) Andrea Rossato -- License     :  BSD3--- +-- -- Maintainer  :  Andrea Rossato <andrea.rossato@unibz.it> -- Stability   :  unstable -- Portability :  unportable@@ -14,7 +14,7 @@  module Main where -import Prelude+import Prelude hiding (catch) import Control.Concurrent import Control.Exception import Control.Monad@@ -26,7 +26,7 @@ import Utils  main :: IO ()-main = do +main = do   dpy <- openDisplay ""   let dflt = defaultScreen dpy   rootw  <- rootWindow dpy dflt@@ -37,7 +37,7 @@ hidePointer d w = do   let em = buttonPressMask .|. pointerMotionMask   cursor <- nullCursor d w-  ps <- grabPointer d w False em grabModeAsync +  ps <- grabPointer d w False em grabModeAsync                     grabModeAsync w cursor currentTime   when (ps /= grabSuccess) $ do         waitASecond 1@@ -68,4 +68,4 @@           waitForMotion d w       -- wait for a timer interrupt to hide the pointer       go t = do-        catch (unblock $ stopAndWait t) (const $ hidePointer d w :: SomeException -> IO ())+        catch (unblock $ stopAndWait t) (const $ hidePointer d w :: ErrorCall -> IO ())

@@ -1,5 +1,5 @@ Name:               xmonad-utils-Version:            0.1.3.2+Version:            0.1.3.2.1 License:            BSD3 License-file:       LICENSE Author:             Andrea Rossato