Remove GenWorld datatype

2022-06-02 19:06:00 +01:00
parent 35cd213bcf
commit 7c4a853d70
9 changed files with 95 additions and 107 deletions
@@ -6,6 +6,6 @@ import System.Random
 import Control.Monad.State
 import Control.Lens

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