From 758ea89c742a1cb295659bc7172f7583a03ffee4 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 21 Nov 2024 14:18:18 -0400 Subject: [PATCH] skip over repositories in --directory that do not have annex.uuid set --- Command/P2PHttp.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/Command/P2PHttp.hs b/Command/P2PHttp.hs index cb2c752055..16b7ce789e 100644 --- a/Command/P2PHttp.hs +++ b/Command/P2PHttp.hs @@ -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 ()