diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2010-04-29 15:47:49 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2010-04-29 15:47:49 +0200 |
| commit | 16b75c661c1863c23258cf1f32b5a86e8b58b688 (patch) | |
| tree | 1979cacc452f270266de9c75a16afd3729ec24c7 /XMonad/Actions/Search.hs | |
| parent | 891d68b75820e1e0ff96031825162283517093e2 (diff) | |
| download | XMonadContrib-16b75c661c1863c23258cf1f32b5a86e8b58b688.tar.gz XMonadContrib-16b75c661c1863c23258cf1f32b5a86e8b58b688.tar.xz XMonadContrib-16b75c661c1863c23258cf1f32b5a86e8b58b688.zip | |
A.Search: Remove unnecessary `do'
Ignore-this: 2fc31d045a57ccd01f3af03cb46440c2
darcs-hash:20100429134749-1499c-a2107f9d50b9366982b5c3ab43828e2ec5dbaabb.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Actions/Search.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/XMonad/Actions/Search.hs b/XMonad/Actions/Search.hs index 16625a6..d1bc596 100644 --- a/XMonad/Actions/Search.hs +++ b/XMonad/Actions/Search.hs @@ -226,8 +226,7 @@ use (SearchEngine _ engine) = engine -- | Given a browser, a search engine's transformation function, and a search term, perform the -- requested search in the browser. search :: Browser -> Site -> Query -> X () -search browser site query = do - safeSpawn browser [site query] +search browser site query = safeSpawn browser [site query] {- | Given a base URL, create the 'SearchEngine' that escapes the query and appends it to the base. You can easily define a new engine locally using |