twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-05 22:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

XMonad.Actions.Search: removeColonPrefix shouldn't throw an exception if no :!

Browse Source
This commit is contained in:
gwern0
2009-08-08 00:22:24 +00:00
parent bf398ff356
commit d38696bcd5
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Actions/Search.hs
View File

@@ -320,7 +320,7 @@ intelligent (SearchEngine name site) = searchEngineF name (\s -> if (fst $ break
-- | > removeColonPrefix "foo://bar" ~> "//bar" -- | > removeColonPrefix "foo://bar" ~> "//bar"
-- > removeColonPrefix "foo//bar" ~> "foo//bar" -- > removeColonPrefix "foo//bar" ~> "foo//bar"
removeColonPrefix :: String -> String removeColonPrefix :: String -> String
removeColonPrefix str = tail $ snd $ break (==':') str removeColonPrefix s = if ':' `elem` s then drop 1 $ dropWhile (':' /=) s else s
{- | Connects a few search engines into one. If the search engines\' names are {- | Connects a few search engines into one. If the search engines\' names are
\"s1\", \"s2\" and \"s3\", then the resulting engine will use s1 if the query \"s1\", \"s2\" and \"s3\", then the resulting engine will use s1 if the query