add: fix over-zealous cleanup caught by hydra, continued
This commit is contained in:
		
							parent
							
								
									8e6922c57c
								
							
						
					
					
						commit
						7cbbd0fbab
					
				@ -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]
 | 
			
		||||
 | 
			
		||||
		Loading…
	
		Reference in New Issue
	
	Block a user