Make Placement into a product type

2025-09-02 12:31:55 +01:00
parent dc13c61dca
commit f278af0f30
29 changed files with 168 additions and 168 deletions
@@ -25,4 +25,4 @@ shiftPlacement shift plmnt = case plmnt of
    Placement{} ->
        plmnt & plSpot %~ shiftPSBy shift
            & plIDCont %~ fmap (fmap (fmap $ shiftPlacement shift))
-    RandomPlacement rpl -> RandomPlacement $ fmap (shiftPlacement shift) rpl
+--    RandomPlacement rpl -> RandomPlacement $ fmap (shiftPlacement shift) rpl