Reinstate genworld concept

2022-07-25 09:49:55 +01:00
parent d62e14cdb5
commit 3354d108be
7 changed files with 58 additions and 47 deletions
@@ -6,6 +6,6 @@ import System.Random
 import Control.Monad.State
 import Control.Lens

-gRandify :: World -> State StdGen World -> World
-gRandify gw mw = let (gw',g) = runState mw (_randGen gw)
-    in gw' & randGen .~ g
+gRandify :: GenWorld -> State StdGen GenWorld -> GenWorld
+gRandify gw mw = let (gw',g) = runState mw (_randGen $ _gwWorld gw)
+    in gw' & gwWorld . randGen .~ g