From 09735bb4696be97317b36000f885d0fe5d07b1d8 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sat, 15 Dec 2012 17:55:25 +0100 Subject: Address warnings from Debug modules Ignore-this: f97416ae4feffe4e5f9916d14d9e1524 The warnings were related to ghc-7.6 removing Prelude.catch (triggering warnings regarding the import hiding it), as well as defaulting of some numeric types. darcs-hash:20121215165525-1499c-d960b0029306b898656aae8b61279a707f490c0b.gz --- XMonad/Util/DebugWindow.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Util/DebugWindow.hs') diff --git a/XMonad/Util/DebugWindow.hs b/XMonad/Util/DebugWindow.hs index 413f700..9fe5817 100644 --- a/XMonad/Util/DebugWindow.hs +++ b/XMonad/Util/DebugWindow.hs @@ -15,12 +15,12 @@ module XMonad.Util.DebugWindow (debugWindow) where -import Prelude hiding (catch) +import Prelude import XMonad import Codec.Binary.UTF8.String (decodeString) -import Control.Exception +import Control.Exception.Extensible as E import Control.Monad (when) import Data.List (unfoldr ,intercalate @@ -117,7 +117,7 @@ catchX' :: X a -> X a -> X a catchX' job errcase = do st <- get c <- ask - (a, s') <- io $ runX c st job `catch` \e -> case fromException e of + (a, s') <- io $ runX c st job `E.catch` \e -> case fromException e of Just x -> throw e `const` (x `asTypeOf` ExitSuccess) _ -> runX c st errcase put s' -- cgit v1.2.3