moveClusterInDirection :: Direction -> Cluster -> Cluster
moveClusterInDirection direction = Cluster . (Map.mapKeys $ moveLocationInDirection direction) . blocks
moveClusterInDirection :: Direction -> Cluster -> Cluster
moveClusterInDirection direction = Cluster . (Map.mapKeys $ moveLocationInDirection direction) . blocks
moveClusterInDirection direction = Cluster . (Map.mapKeys $ moveLocationInDirection direction) . blocks