Move GenWorld fields into World

2022-06-02 18:48:20 +01:00
parent 66d098cfef
commit 35cd213bcf
35 changed files with 247 additions and 219 deletions
@@ -21,8 +21,9 @@ import System.Random
 worldToGenWorld :: IM.IntMap Room -> World -> GenWorld
 worldToGenWorld rms w = GenWorld 
    { _gWorld = w & genParams .~ gparams
-    , _gPlacements = IM.empty
-    , _gRooms = rms
+        & genRooms .~ rms
+--    , _gPlacements = IM.empty
+--    , _gRooms = rms
    }
  where 
    gparams = evalState generateGenParams (_randGen w)