doClustersClash :: Cluster -> Cluster -> Bool
doClustersClash (Cluster a) (Cluster b) = not $ Map.null $ Map.intersection a b
doClustersClash :: Cluster -> Cluster -> Bool
doClustersClash (Cluster a) (Cluster b) = not $ Map.null $ Map.intersection a b
doClustersClash (Cluster a) (Cluster b) = not $ Map.null $ Map.intersection a b