skip over repositories in --directory that do not have annex.uuid set
This commit is contained in:
		
					parent
					
						
							
								3c18398d5a
							
						
					
				
			
			
				commit
				
					
						758ea89c74
					
				
			
		
					 1 changed files with 5 additions and 1 deletions
				
			
		| 
						 | 
				
			
			@ -135,7 +135,11 @@ startIO o
 | 
			
		|||
		repos <- findRepos o
 | 
			
		||||
		sts <- forM repos $ \r -> do
 | 
			
		||||
			strd <- Annex.new r
 | 
			
		||||
			Annex.eval strd $ mkServerState o authenv
 | 
			
		||||
			Annex.eval strd $
 | 
			
		||||
				ifM ((/=) NoUUID <$> getUUID)
 | 
			
		||||
					( mkServerState o authenv
 | 
			
		||||
					, return mempty
 | 
			
		||||
					)
 | 
			
		||||
		runServer o (mconcat sts)
 | 
			
		||||
 | 
			
		||||
runServer :: Options -> P2PHttpServerState -> IO ()
 | 
			
		||||
| 
						 | 
				
			
			
 | 
			
		|||
		Loading…
	
	Add table
		Add a link
		
	
		Reference in a new issue