twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 04:31:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use extensible-exceptions to allow base-3 or base-4

Browse Source
This commit is contained in:
Adam Vogt
2010-01-24 20:33:24 +00:00
parent b435a6a519
commit aa8290b60d
7 changed files with 28 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XMonad/Util/XSelection.hs
View File

@@ -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