joinClusters :: Cluster -> Cluster -> Cluster
joinClusters (Cluster a) (Cluster b) = Cluster $ Map.union a b
joinClusters :: Cluster -> Cluster -> Cluster
joinClusters (Cluster a) (Cluster b) = Cluster $ Map.union a b
joinClusters (Cluster a) (Cluster b) = Cluster $ Map.union a b