From 749f206af0ac47fa6fafa7877c97f75b41325385 Mon Sep 17 00:00:00 2001
From: justin <justin.g.kruger@gmail.com>
Date: Fri, 1 Jul 2022 19:57:49 +0100
Subject: [PATCH] Redo cloud zoning as in master

---
 src/Dodge/Update.hs | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/Dodge/Update.hs b/src/Dodge/Update.hs
index 869dfc33e..276676dad 100644
--- a/src/Dodge/Update.hs
+++ b/src/Dodge/Update.hs
@@ -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