diff --git a/src/Foundation.hs b/src/Foundation.hs index d2243550c..b6db48a8a 100644 --- a/src/Foundation.hs +++ b/src/Foundation.hs @@ -562,7 +562,7 @@ routeAuthTags = fmap (impureNonNull . Set.mapMonotonic impureNonNull) . ofoldM p | oany (authTags `Set.isSubsetOf`) prev -> Right prev | otherwise - -> Right $ Set.insert authTags prev + -> Right . Set.insert authTags $ Set.filter (not . (`Set.isSubsetOf` authTags)) prev | otherwise = Left $ InvalidAuthTag t