Remove GenWorld datatype

src/Dodge/Data.hs

@@ -1371,7 +1371,7 @@ data PSType = PutCrit {_unPutCrit :: Creature}
     | PutShape Shape
     | PutWorldUpdate (PlacementSpot -> World -> World)
     | PutNothing
-    | PutUsingGenParams (GenWorld -> (GenWorld,PSType))
+    | PutUsingGenParams (World -> (World,PSType))
     | PutID { _putID :: Int}
 -- maybe there is a monadic implementation of this?
 -- add room effect for any placement spot?
@@ -1505,10 +1505,6 @@ data RoomPosType
     | RoomPosLab Int
   deriving (Eq,Ord,Show)
 
-data GenWorld = GenWorld
-    { _gWorld       :: World
-    }
-
 makeLenses ''CreatureState
 makeLenses ''Damage
 makeLenses ''DamageEffect
@@ -1588,4 +1584,3 @@ makeLenses ''RoomLink
 makeLenses ''RoomPos
 makeLenses ''RoomPosType
 makeLenses ''RPLinkStatus
-makeLenses ''GenWorld