Remove GenWorld datatype

2022-06-02 19:06:00 +01:00
parent 35cd213bcf
commit 7c4a853d70
9 changed files with 95 additions and 107 deletions
@@ -18,13 +18,11 @@ import qualified Data.Map.Strict as M
 import Control.Monad.State
 import System.Random

-worldToGenWorld :: IM.IntMap Room -> World -> GenWorld
-worldToGenWorld rms w = GenWorld 
-    { _gWorld = w & genParams .~ gparams
+worldToGenWorld :: IM.IntMap Room -> World -> World
+worldToGenWorld rms w = w & genParams .~ gparams
        & genRooms .~ rms
 --    , _gPlacements = IM.empty
 --    , _gRooms = rms
-    }
  where 
    gparams = evalState generateGenParams (_randGen w)