add: fix over-zealous cleanup caught by hydra, continued

This commit is contained in:
Simon Michael 2014-03-06 17:50:46 -08:00
parent 8e6922c57c
commit 7cbbd0fbab

View File

@ -307,7 +307,6 @@ completer completions def = completeWord Nothing "" completionsFor
completionsFor "" = return [simpleCompletion' def]
completionsFor i = return (map simpleCompletion' ciprefixmatches)
where
simpleCompletion' s = (simpleCompletion s){isFinished=False}
ciprefixmatches = [c | c <- completions, i `isPrefixOf` c]
-- mixed-case completions require haskeline > 0.7.1.2
-- ciprefixmatches = [c | c <- completions, lowercase i `isPrefixOf` lowercase c]