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
@@ -18,7 +18,7 @@ import qualified Data.Map.Strict as M

 worldToGenWorld :: IM.IntMap Room -> World -> GenWorld
 worldToGenWorld rms w = GenWorld 
-    { _gwWorld = w & genParams .~ evalState generateGenParams (_randGen w)
+    { _gwWorld = w & cWorld . genParams .~ evalState generateGenParams (_randGen w)
    , _genRooms = rms
    , _genPlacements = mempty
    }