Reify modifications

2022-07-23 20:53:00 +01:00
parent f0f9751afe
commit 5de837c8cf
8 changed files with 56 additions and 22 deletions
@@ -4,6 +4,7 @@ Module      : Dodge.Update
 Description : Simulation update
 -}
 module Dodge.Update ( updateUniverse ) where
+import Dodge.ModificationEffect
 import Dodge.CrGroupUpdate
 import Dodge.Zoning.Cloud
 import Dodge.Zoning.Creature
@@ -81,7 +82,7 @@ functionalUpdate w = checkEndGame
    . over uvWorld (updateIMl _doors _drMech                )
    . over uvWorld doWorldEvents
    . over uvWorld updateDelayedEvents
-    . over uvWorld (updateIMl _modifications _mdUpdate      )
+    . over uvWorld (updateIMl _modifications (doModificationEffect . _mdUpdate)      )
    . over uvWorld updateSparks
    . over uvWorld updateRadarSweeps
    . over uvWorld updatePosEvents