Remove PickOnePlacements

2025-09-02 12:02:44 +01:00
parent f279494a02
commit 7b28ec15d1
7 changed files with 8 additions and 23 deletions
@@ -25,9 +25,4 @@ shiftPlacement shift plmnt = case plmnt of
    Placement{} ->
        plmnt & plSpot %~ shiftPSBy shift
            & plIDCont %~ fmap (fmap (fmap $ shiftPlacement shift))
-    PlacementUsingPos p f ->
-        PlacementUsingPos
-            (shiftPoint3By shift p)
-            (fmap (shiftPlacement shift) f)
    RandomPlacement rpl -> RandomPlacement $ fmap (shiftPlacement shift) rpl
-    PickOnePlacement i pl -> PickOnePlacement i (shiftPlacement shift pl)