diff options
| -rw-r--r-- | XMonad/Util/Search.hs | 4 | ||||
| -rw-r--r-- | xmonad-contrib.cabal | 2 |
2 files changed, 2 insertions, 4 deletions
diff --git a/XMonad/Util/Search.hs b/XMonad/Util/Search.hs index 17b7e8c..b767971 100644 --- a/XMonad/Util/Search.hs +++ b/XMonad/Util/Search.hs @@ -25,10 +25,8 @@ module XMonad.Util.Search ( -- * Usage search ) where -import Data.Char (isAlpha, isDigit, isMark) import XMonad (io, X()) import XMonad.Util.Run (safeSpawn) -import Network.URI (escapeURIString) import XMonad.Prompt.Shell (getShellCompl) import XMonad.Prompt (XPrompt(showXPrompt), mkXPrompt, XPConfig()) import XMonad.Util.XSelection (getSelection) @@ -43,7 +41,7 @@ instance XPrompt Search where -- funny, but that produces obfuscated search queries. So we merely escape -- anything that doesn't look unfunny. escape :: String -> String -escape = escapeURIString (\c -> isAlpha c || isDigit c || isMark c) +escape = id -- | Given the base search URL, a browser to use, and the actual query, escape -- the query, prepend the base URL, and hand it off to the browser. diff --git a/xmonad-contrib.cabal b/xmonad-contrib.cabal index 70fb28b..7afcfc2 100644 --- a/xmonad-contrib.cabal +++ b/xmonad-contrib.cabal @@ -35,7 +35,7 @@ flag use_xft library if flag(small_base) - build-depends: base >= 3, containers, directory, network, process, random + build-depends: base >= 3, containers, directory, process, random else build-depends: base < 3 |