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