Redo cloud zoning as in master

2022-07-01 19:57:49 +01:00
parent 9c7c5e1133
commit 749f206af0
1 changed files with 4 additions and 2 deletions
@@ -98,8 +98,10 @@ functionalUpdate cfig w = checkEndGame
    $ updateCloseObjects w

 zoneClouds :: World -> World
-zoneClouds w = w & clZoning %~ \zn ->
-    foldl' (flip $ updateZoning (:)) (zn & znObjects .~ mempty) (_clouds w)
+zoneClouds w = w 
+    & clZoning . znObjects .~ mempty
+    & clZoning %~ \zn ->
+        foldl' (flip $ updateZoning (:)) zn (_clouds w)
    --runIdentity (S.fold_ (flip $ updateZoning (:)) (zn & znObjects .~ mempty) id (_clouds w))

 updateWorldSelect :: World -> World