diff --git a/src/Hhp.hs b/src/Hhp.hs
--- a/src/Hhp.hs
+++ b/src/Hhp.hs
@@ -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 ())
diff --git a/xmonad-utils.cabal b/xmonad-utils.cabal
--- a/xmonad-utils.cabal
+++ b/xmonad-utils.cabal
@@ -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