Add analysing machine

2022-03-21 09:14:32 +00:00
parent 13e8ea85d2
commit 51cc04799d
7 changed files with 102 additions and 15 deletions
@@ -21,7 +21,7 @@ import qualified Data.IntMap.Strict as IM
 generateWorldFromSeed :: Int -> IO World
 generateWorldFromSeed i = do
    (roomList,bounds) <- layoutLevelFromSeed 0 i
-    return $ saveLevelStartSlot $ (_gWorld $ generateLevelFromRoomList roomList 
+    return $ saveLevelStartSlot $ _gWorld (generateLevelFromRoomList roomList 
         initialWorld{_randGen=mkStdGen i})
        & roomClipping .~ bounds