createCluster :: [Block] -> Cluster
createCluster blocks = Cluster $ Map.fromList [(location, coloring) | (Block location coloring) <- blocks]
createCluster :: [Block] -> Cluster
createCluster blocks = Cluster $ Map.fromList [(location, coloring) | (Block location coloring) <- blocks]
createCluster blocks = Cluster $ Map.fromList [(location, coloring) | (Block location coloring) <- blocks]