Move toward data-ifying item SPics

2022-07-11 11:32:25 +01:00
parent 3447b9b0bb
commit 33d94bd05a
23 changed files with 332 additions and 331 deletions
@@ -9,6 +9,8 @@ import Control.Lens
 --import Streaming
 --import qualified Streaming.Prelude as S

+-- need to verify that this not only inserts but also overwrites (updates) any
+-- already existing walls
 insertWallInZones :: Wall -> World -> World
 insertWallInZones wl = wlZoning %~ updateZoning (IM.insert (_wlID wl)) wl
 --insertWallInZones wl = wlZoning .updatets