From e697c0a7085cc5abd1d51b2d463a4705a8e7e11c Mon Sep 17 00:00:00 2001
From: Daniel Wagner <daniel@wagner-home.com>
Date: Tue, 29 Nov 2011 04:23:31 +0100
Subject: unfuck X.U.Paste

Ignore-this: d450e23ca026143bb6ca9d744dcdd906

darcs-hash:20111129032331-76d51-a1431be2861220ae264e515bd562f8aab877924e.gz
---
 XMonad/Util/Paste.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'XMonad/Util')

diff --git a/XMonad/Util/Paste.hs b/XMonad/Util/Paste.hs
index 666d62b..dc9551b 100644
--- a/XMonad/Util/Paste.hs
+++ b/XMonad/Util/Paste.hs
@@ -56,7 +56,7 @@ pasteSelection = getSelection >>= pasteString
 -- | Send a string to the window which is currently focused. This function correctly
 -- handles capitalization. Warning: in dealing with capitalized characters, this assumes a QWERTY layout.
 pasteString :: String -> X ()
-pasteString = mapM_ (\x -> if isUpper x || || x `elem` "!@#$%^&*()_+{}:<>?\"" then pasteChar shiftMask x else pasteChar noModMask x)
+pasteString = mapM_ (\x -> if isUpper x || x `elem` "!@#$%^&*()_+{}:<>?\"" then pasteChar shiftMask x else pasteChar noModMask x)
 
 {- | Send a character to the current window. This is more low-level.
    Remember that you must handle the case of capitalization appropriately.
-- 
cgit v1.2.3