Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -1,11 +1,11 @@
 module Dodge.Randify where
-import Dodge.Data
--import Dodge.LevelGen.LevelStructure

-import System.Random
-import Control.Monad.State
 import Control.Lens
+import Control.Monad.State
+import Dodge.Data.GenWorld
+import System.Random

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