X.P.Shell: fix shadowing warning

This commit is contained in:
Brent Yorgey
2015-12-10 21:08:38 -06:00
parent e521d6546f
commit 8e532562e7

View File

@@ -110,7 +110,7 @@ getShellCompl cmds p s | s == "" || last s == ' ' = return []
| x `startsWith` s && not (y `startsWith` s) = LT
| y `startsWith` s && not (x `startsWith` s) = GT
| otherwise = x `compare` y
startsWith s ps = isPrefixOf (map toLower ps) (map toLower s)
startsWith str ps = isPrefixOf (map toLower ps) (map toLower str)
commandCompletionFunction :: [String] -> Predicate -> String -> [String]
commandCompletionFunction cmds p str | '/' `elem` str = []