Remove _plGenUpdate field, instead allow Placements to take World arg
This commit is contained in:
@@ -23,7 +23,7 @@ plDoor :: Color
|
||||
-- Bumped out up and down by 9, not widened
|
||||
-> World
|
||||
-> (Int,World)
|
||||
plDoor col cond pss gw = (drid, (addWalls gw & doors %~ addDoor))
|
||||
plDoor col cond pss gw = (drid, addWalls gw & doors %~ addDoor)
|
||||
where
|
||||
drid = IM.newKey $ _doors gw
|
||||
addDoor = IM.insert drid $ Door
|
||||
@@ -108,7 +108,7 @@ plSlideDoor
|
||||
-> World
|
||||
-> (Int, World)
|
||||
plSlideDoor isPathable col cond shiftOffset a b speed gw
|
||||
= (drid, (addWalls gw & doors %~ addDoor))
|
||||
= (drid, addWalls gw & doors %~ addDoor)
|
||||
where
|
||||
drid = IM.newKey $ _doors gw
|
||||
addDoor = IM.insert drid $ Door
|
||||
|
||||
Reference in New Issue
Block a user