Remove _plGenUpdate field, instead allow Placements to take World arg

2022-06-02 20:00:03 +01:00
parent 7c4a853d70
commit 024f72da20
13 changed files with 54 additions and 53 deletions
@@ -1393,8 +1393,8 @@ data Placement
        { _plSpot   :: PlacementSpot
        , _plType   :: PSType
        , _plMID    :: Maybe Int
-        , _plGenUpdate :: Maybe (GenParams -> Placement -> (GenParams, Placement) )
-        , _plIDCont :: Placement -> Maybe Placement 
+--        , _plGenUpdate :: Maybe (GenParams -> Placement -> (GenParams, Placement) )
+        , _plIDCont :: World -> Placement -> Maybe Placement 
        }
    | PlacementUsingPos Point3 (Point3 -> Placement)  -- allows a placement to use a shifted position
    | RandomPlacement {_unRandomPlacement :: State StdGen Placement}