Remove _plGenUpdate field, instead allow Placements to take World arg

2022-06-02 20:00:03 +01:00
parent 7c4a853d70
commit 024f72da20
13 changed files with 54 additions and 53 deletions
@@ -22,8 +22,8 @@ generateWorldFromSeed :: Int -> IO World
 generateWorldFromSeed i = do
    writeFile "attemptedSeeds" ""
    (roomList,bounds) <- layoutLevelFromSeed 0 i
-    return $ saveLevelStartSlot $  (generateLevelFromRoomList roomList 
-         initialWorld{_randGen=mkStdGen i})
+    return $ saveLevelStartSlot 
+        $ generateLevelFromRoomList roomList initialWorld{_randGen=mkStdGen i}
        & roomClipping .~ bounds

 layoutLevelFromSeed :: Int -> Int -> IO (IM.IntMap Room,[ConvexPoly])