12 lines
286 B
Haskell
12 lines
286 B
Haskell
module Dodge.Randify where
|
|
import Dodge.Data
|
|
--import Dodge.LevelGen.LevelStructure
|
|
|
|
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
|