From 92ec5a0626c53a56407d425326421d0e67cdbe9a Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sat, 15 Dec 2007 00:18:59 +0100 Subject: Remove network dependency, potentially breaking XMonad.Util.Search darcs-hash:20071214231859-a5988-d1a859a979fb4f07d068a4688abb48d54966f1f9.gz --- XMonad/Util/Search.hs | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) (limited to 'XMonad/Util/Search.hs') 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. -- cgit v1.2.3