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

Refactor cloud zoning

Browse Source
This commit is contained in:
justin
2022-07-23 13:18:25 +01:00
parent 12fad676f2
commit 94d5691f46
7 changed files with 57 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Zoning/Wall.hs
-3
View File
@@ -56,6 +56,3 @@ zoneWall wl im = foldl' f im (zoneOfWl wl)
deZoneWall :: Wall -> IM.IntMap (IM.IntMap IS.IntSet) -> IM.IntMap (IM.IntMap IS.IntSet)
deZoneWall wl im = foldl' (deZoneIX (_wlID wl)) im (zoneOfWl wl)
deZoneIX :: Int -> IM.IntMap (IM.IntMap IS.IntSet) -> Int2 -> IM.IntMap (IM.IntMap IS.IntSet)
deZoneIX i im (V2 x y) = im & ix x . ix y %~ IS.delete i