merge from git-repair
This commit is contained in:
		
					parent
					
						
							
								7dbb702edd
							
						
					
				
			
			
				commit
				
					
						8a466247ed
					
				
			
		
					 1 changed files with 1 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -68,7 +68,7 @@ findMissing objs r = go objs [] =<< start
 | 
			
		|||
		void $ tryIO $ catFileStop h
 | 
			
		||||
		return $ S.fromList c
 | 
			
		||||
	go (o:os) c h = do
 | 
			
		||||
		v <- tryIO $ isNothing <$> catObjectDetails h o
 | 
			
		||||
		v <- tryNonAsync $ isNothing <$> catObjectDetails h o
 | 
			
		||||
		case v of
 | 
			
		||||
			Left _ -> do
 | 
			
		||||
				void $ tryIO $ catFileStop h
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue