Remove GenWorld datatype

2022-06-02 19:06:00 +01:00
parent 35cd213bcf
commit 7c4a853d70
9 changed files with 95 additions and 107 deletions
@@ -22,7 +22,7 @@ generateWorldFromSeed :: Int -> IO World
 generateWorldFromSeed i = do
    writeFile "attemptedSeeds" ""
    (roomList,bounds) <- layoutLevelFromSeed 0 i
-    return $ saveLevelStartSlot $ _gWorld (generateLevelFromRoomList roomList 
+    return $ saveLevelStartSlot $  (generateLevelFromRoomList roomList 
         initialWorld{_randGen=mkStdGen i})
        & roomClipping .~ bounds