Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -8,9 +8,9 @@ import qualified IntMapHelp as IM

 createWall :: Wall -> World -> (Int,World)
 createWall wl w = (wlid
-    , w & walls %~ IM.insert wlid newwl
+    , w & cWorld . walls %~ IM.insert wlid newwl
        & insertWallInZones newwl
    )
  where
    newwl = wl {_wlID = wlid}
-    wlid = IM.newKey $ _walls w
+    wlid = IM.newKey $ _walls (_cWorld w)