Reify press plates

src/Dodge/Update.hs

@@ -4,6 +4,7 @@ Module      : Dodge.Update
 Description : Simulation update
 -}
 module Dodge.Update ( updateUniverse ) where
+import Dodge.PressPlate
 import Dodge.ModificationEffect
 import Dodge.CrGroupUpdate
 import Dodge.Zoning.Cloud
@@ -352,7 +353,7 @@ updateMIM f up = f %~ IM.mapMaybe (dbArg up)
 --        (_,g') = genWord8 g
 
 ppEvents :: World -> World
-ppEvents w = IM.foldl' (flip $ \pp -> _ppEvent pp pp) w $ _pressPlates w
+ppEvents w = IM.foldl' (flip $ \pp -> doPressPlateEvent (_ppEvent pp) pp) w $ _pressPlates w
 
 updateSeenWalls :: World -> World
 updateSeenWalls w = foldl' markWallSeen w (map (_wlID . snd) $ allVisibleWalls w)