allowsAbba :: [ChunkV] -> Bool
allowsAbba chunks = (any (chunkValueV) includeChunks) && (not (any (chunkValueV) excludeChunks))
where (includeChunks, excludeChunks) = partition (isIncludeV) chunks
allowsAbba :: [ChunkV] -> Bool
allowsAbba chunks = (any (chunkValueV) includeChunks) && (not (any (chunkValueV) excludeChunks))
where (includeChunks, excludeChunks) = partition (isIncludeV) chunks