blocksInCluster :: Cluster -> [Block]
blocksInCluster = (map $ uncurry Block) . Map.toList . blocks
blocksInCluster :: Cluster -> [Block]
blocksInCluster = (map $ uncurry Block) . Map.toList . blocks
blocksInCluster = (map $ uncurry Block) . Map.toList . blocks