isClusterWithinArea :: Area -> Cluster -> Bool
isClusterWithinArea area = (all $ isLocationWithinArea area) . Map.keys . blocks
isClusterWithinArea :: Area -> Cluster -> Bool
isClusterWithinArea area = (all $ isLocationWithinArea area) . Map.keys . blocks
isClusterWithinArea area = (all $ isLocationWithinArea area) . Map.keys . blocks