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