justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Redo cloud zoning as in master

Browse Source
This commit is contained in:
justin
2022-07-01 19:57:49 +01:00
parent 9c7c5e1133
commit 749f206af0
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Update.hs
+4 -2
View File
@@ -98,8 +98,10 @@ functionalUpdate cfig w = checkEndGame
$ updateCloseObjects w $ updateCloseObjects w
zoneClouds :: World -> World zoneClouds :: World -> World
zoneClouds w = w & clZoning %~ \zn -> zoneClouds w = w
foldl' (flip $ updateZoning (:)) (zn & znObjects .~ mempty) (_clouds w) & clZoning . znObjects .~ mempty
& clZoning %~ \zn ->
foldl' (flip $ updateZoning (:)) zn (_clouds w)
--runIdentity (S.fold_ (flip $ updateZoning (:)) (zn & znObjects .~ mempty) id (_clouds w)) --runIdentity (S.fold_ (flip $ updateZoning (:)) (zn & znObjects .~ mempty) id (_clouds w))
updateWorldSelect :: World -> World updateWorldSelect :: World -> World