diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-15 00:18:59 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-12-15 00:18:59 +0100 |
| commit | 92ec5a0626c53a56407d425326421d0e67cdbe9a (patch) | |
| tree | c54eaaf3ab4feb1bb1dc7b5dcf1081ad3d7aabcd | |
| parent | 8a9ee37469d02d9f7a78c7cdf5dcc84cfd727cd8 (diff) | |
| download | XMonadContrib-92ec5a0626c53a56407d425326421d0e67cdbe9a.tar.gz XMonadContrib-92ec5a0626c53a56407d425326421d0e67cdbe9a.tar.xz XMonadContrib-92ec5a0626c53a56407d425326421d0e67cdbe9a.zip | |
Remove network dependency, potentially breaking XMonad.Util.Search
darcs-hash:20071214231859-a5988-d1a859a979fb4f07d068a4688abb48d54966f1f9.gz
| -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 |