Move toward implementing chasms

src/Dodge/Data/CWorld.hs

@@ -27,6 +27,7 @@ data CWorld = CWorld
     , _cwTiles :: [Tile]
     , _pathGraph :: Gr Point2 PathEdge
     , _numberFloorVerxs :: Int
+    , _chasms :: [[Point2]]
     }
 
 data CWGen = CWGen

src/Dodge/Data/GenWorld.hs

@@ -55,6 +55,7 @@ data PSType
     | PutNothing
     | PutUsingGenParams (World -> (World, PSType))
     | PutID {_putID :: Int}
+    | PutChasm {_putChasmPoly :: [Point2]}
 
 -- maybe there is a monadic implementation of this?
 -- add room effect for any placement spot?