Nest fields in CWorld

2022-08-19 11:28:19 +01:00
parent 9df0fa8692
commit 3b7841677a
10 changed files with 31 additions and 26 deletions
@@ -27,8 +27,8 @@ generateWorldFromSeed i = do
    return $
        postGenerationProcessing $
            _gwWorld (generateLevelFromRoomList roomList initialWorld{_randGen = mkStdGen i})
-                & cWorld . roomClipping .~ bounds
-                & cWorld . cwSeed .~ i
+                & cWorld . cwGen . cwgRoomClipping .~ bounds
+                & cWorld . cwGen . cwgSeed .~ i

 postGenerationProcessing :: World -> World
 postGenerationProcessing w = foldl' assignPushDoors w (_doors (_cWorld w))