-- | Index all provided packages with the given index as 'IndexedSpace'.
-- | Also keep the provided residual spaces.
indexPackingStep :: Int -> ([EuclideanSpace3D], [ResidualSpace]) -> ([IndexedSpace], [ResidualSpace])
indexPackingStep i (es, rs) = (fmap (indexSpace i) es, rs)
indexPackingStep :: Int -> ([EuclideanSpace3D], [ResidualSpace]) -> ([IndexedSpace], [ResidualSpace])
indexPackingStep i (es, rs) = (fmap (indexSpace i) es, rs)
indexPackingStep i (es, rs) = (fmap (indexSpace i) es, rs)