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
@@ -86,7 +86,7 @@ ps0PushPSw pst f = Placement 10 (PSNoShiftCont (V2 0 0) 0) pst Nothing $

 addPlmnt :: Placement -> Placement -> Placement
 addPlmnt pl pl2 = case pl2 of
-    (RandomPlacement rp) -> RandomPlacement $ fmap (addPlmnt pl) rp
+--    (RandomPlacement rp) -> RandomPlacement $ fmap (addPlmnt pl) rp
    (Placement i ps pt mi f) -> Placement i ps pt mi (fmap (fmap g) f)
  where
    g Nothing = Just pl