Reify modifications

src/Dodge/Placement/Instance/Button.hs

@@ -62,9 +62,7 @@ extTrigLitPos ps f = psPtCont ps (PutTrigger False)
         {_mdID = 0
         ,_mdExternalID1 = lsid
         ,_mdExternalID2 = fromJust $ _plMID tp
-        ,_mdUpdate = \md w -> if w ^?! triggers . ix (_mdExternalID2 md)
-            then w & lightSources . ix (_mdExternalID1 md) . lsParam . lsCol .~ V3 0 0.5 0
-            else w & lightSources . ix (_mdExternalID1 md) . lsParam . lsCol .~ V3 0.5 0 0
+        ,_mdUpdate = MdTrigIf (MdSetLSCol (V3 0 0.5 0)) (MdSetLSCol (V3 0.5 0 0))
         }
     thels = lsColPosRad (V3 0.5 0 0) (V3 0 0 78) 75
 

src/Dodge/Placement/Instance/LightSource/Flicker.hs

@@ -10,7 +10,7 @@ flickerMod :: Placement -> Maybe Placement
 flickerMod pl = Just $ sps0 $ PutMod $ ModIDTimerPoint3Bool
     { _mdID = 0
     , _mdExternalID = fromJust $ _plMID pl
-    , _mdUpdate = flickerUpdate
+    , _mdUpdate = MdFlickerUpdate
     , _mdTimer  = 10
     , _mdPoint3  = 0.8
     , _mdBool = True