diff options
| author | Adam Vogt <vogt.adam@gmail.com> | 2009-06-24 06:38:31 +0200 |
|---|---|---|
| committer | Adam Vogt <vogt.adam@gmail.com> | 2009-06-24 06:38:31 +0200 |
| commit | 638047c27ac8913a365fa55f4ba0758606d4fd6c (patch) | |
| tree | 7d08a2ebc7603ec6f1e66856aeb32ed966c4666e /XMonad/Actions | |
| parent | 36fe458e23e119cd91c09f6ec66fe487eebec839 (diff) | |
| download | XMonadContrib-638047c27ac8913a365fa55f4ba0758606d4fd6c.tar.gz XMonadContrib-638047c27ac8913a365fa55f4ba0758606d4fd6c.tar.xz XMonadContrib-638047c27ac8913a365fa55f4ba0758606d4fd6c.zip | |
Use -fwarn-tabs for test, remove tabs
Ignore-this: 84dfa0d9d50826527abbe7ff6acf4465
darcs-hash:20090624043831-1499c-2086e714723091fae9e3697df370a0634152f0a4.gz
Diffstat (limited to 'XMonad/Actions')
| -rw-r--r-- | XMonad/Actions/Search.hs | 4 | ||||
| -rw-r--r-- | XMonad/Actions/WindowBringer.hs | 10 |
2 files changed, 7 insertions, 7 deletions
diff --git a/XMonad/Actions/Search.hs b/XMonad/Actions/Search.hs index 257cd27..c2c2a05 100644 --- a/XMonad/Actions/Search.hs +++ b/XMonad/Actions/Search.hs @@ -336,8 +336,8 @@ removeColonPrefix str = tail $ snd $ break (==':') str {- | Makes a search engine prefix-aware. Especially useful together with '!>'. It will automatically remove the prefix from a query so that you don\'t end - up searching for google:xmonad if google is your fallback engine and you - explicitly add the prefix. -} + up searching for google:xmonad if google is your fallback engine and you + explicitly add the prefix. -} prefixAware :: SearchEngine -> SearchEngine prefixAware (SearchEngine name site) = SearchEngine name (\s -> if s `hasPrefix` (name++":") then site $ removeColonPrefix s else site s) diff --git a/XMonad/Actions/WindowBringer.hs b/XMonad/Actions/WindowBringer.hs index 91bc0d1..449abab 100644 --- a/XMonad/Actions/WindowBringer.hs +++ b/XMonad/Actions/WindowBringer.hs @@ -15,11 +15,11 @@ ----------------------------------------------------------------------------- module XMonad.Actions.WindowBringer ( - -- * Usage - -- $usage - gotoMenu, gotoMenu', bringMenu, windowMap, - bringWindow - ) where + -- * Usage + -- $usage + gotoMenu, gotoMenu', bringMenu, windowMap, + bringWindow + ) where import Data.Char (toLower) import qualified Data.Map as M |