skip over repositories in --directory that do not have annex.uuid set

This commit is contained in:
Joey Hess 2024-11-21 14:18:18 -04:00
parent 3c18398d5a
commit 758ea89c74
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38

View file

@ -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 ()