From ef7cd124086bd3c91eb5fea9bb13057a82c71f29 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Sun, 24 Jan 2010 21:33:24 +0100 Subject: Use extensible-exceptions to allow base-3 or base-4 Ignore-this: 136f35fcc0f3a824b96eea0f4e04f276 darcs-hash:20100124203324-1499c-6e811978a61feebf704e3cd7543cbcc0b3e8a0b3.gz --- XMonad/Util/XSelection.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'XMonad/Util/XSelection.hs') diff --git a/XMonad/Util/XSelection.hs b/XMonad/Util/XSelection.hs index ad660c6..2dc68e6 100644 --- a/XMonad/Util/XSelection.hs +++ b/XMonad/Util/XSelection.hs @@ -22,7 +22,7 @@ module XMonad.Util.XSelection ( -- * Usage transformPromptSelection, transformSafePromptSelection) where -import Control.Exception as E (catch) +import Control.Exception.Extensible as E (catch,SomeException(..)) import Control.Monad (liftM, join) import Data.Maybe (fromMaybe) import XMonad @@ -66,8 +66,8 @@ getSelection = io $ do ty <- E.catch (E.catch (internAtom dpy "UTF8_STRING" False) - (\_ -> internAtom dpy "COMPOUND_TEXT" False)) - (\_ -> internAtom dpy "sTring" False) + (\(E.SomeException _) -> internAtom dpy "COMPOUND_TEXT" False)) + (\(E.SomeException _) -> internAtom dpy "sTring" False) clp <- internAtom dpy "BLITZ_SEL_STRING" False xConvertSelection dpy p ty clp win currentTime allocaXEvent $ \e -> do -- cgit v1.2.3