detect when unwanted remote is empty and remove it

Needs fixes to build when the webapp is disabled.

1 files changed, 5 insertions, 0 deletions

diff --git a/Logs/Group.hs b/Logs/Group.hs
index c08feffde..85906f0a7 100644
--- a/Logs/Group.hs
+++ b/Logs/Group.hs
@@ -13,6 +13,7 @@ module Logs.Group (
 	groupMap,
 	groupMapLoad,
 	getStandardGroup,
+	inUnwantedGroup
 ) where
 
 import qualified Data.Map as M
@@ -74,3 +75,7 @@ getStandardGroup :: S.Set Group -> Maybe StandardGroup
 getStandardGroup s = case mapMaybe toStandardGroup $ S.toList s of
 	[g] -> Just g
 	_ -> Nothing
+
+inUnwantedGroup :: UUID -> Annex Bool
+inUnwantedGroup u = elem UnwantedGroup 
+	. mapMaybe toStandardGroup . S.toList <$> lookupGroups u