More nesting of fields in CWorld

2022-08-19 11:41:07 +01:00
parent 3b7841677a
commit 2e34481ab1
9 changed files with 58 additions and 40 deletions
@@ -459,7 +459,7 @@ withTempLight time rad col eff item cr =

 modClock :: Int -> ChainEffect -> ChainEffect
 modClock n chainEff eff it cr w
-    | _worldClock (_cWorld w) `mod` n == 0 = chainEff eff it cr w
+    | (w ^. cWorld . cwTime . worldClock) `mod` n == 0 = chainEff eff it cr w
    | otherwise = eff it cr w

 withMuzFlareI :: ChainEffect