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
@@ -108,8 +108,8 @@ twoRoomPoss :: (RoomPos -> Room -> Bool)
    -> (RoomPos -> Room -> Bool)
    -> (PlacementSpot -> PlacementSpot -> Placement)
    -> Placement
-twoRoomPoss cond1 cond2 f = Placement (rprBool cond1) PutNothing Nothing
-    $ \pl1 -> Just $ Placement (rprBool cond2) PutNothing Nothing
+twoRoomPoss cond1 cond2 f = Placement (rprBool cond1) PutNothing Nothing Nothing
+    $ \pl1 -> Just $ Placement (rprBool cond2) PutNothing Nothing Nothing
    $ \pl2 -> Just $ f (_plSpot pl1) (_plSpot pl2)

 --isUnusedLnk :: RoomPos -> Bool