mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

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

Browse source
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
1 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Command/P2PHttp.hs
View file

@ -135,7 +135,11 @@ startIO o
repos <- findRepos o repos <- findRepos o
sts <- forM repos $ \r -> do sts <- forM repos $ \r -> do
strd <- Annex.new r 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 o (mconcat sts)
runServer :: Options -> P2PHttpServerState -> IO () runServer :: Options -> P2PHttpServerState -> IO ()