Move GenWorld update of placements into product type

2022-03-16 09:39:07 +00:00
parent 5aeb04ba05
commit 2dc94b85da
8 changed files with 32 additions and 35 deletions
@@ -20,4 +20,3 @@ shiftPlacement shift plmnt = case plmnt of
        (fmap (shiftPlacement shift) f)
    RandomPlacement rpl -> RandomPlacement $ fmap (shiftPlacement shift) rpl
    PickOnePlacement i pl -> PickOnePlacement i (shiftPlacement shift pl)
-    PlacementGenUpdate f pl -> PlacementGenUpdate f (shiftPlacement shift pl)