Commit before potential Door refactor

src/Dodge/Data/Block.hs

@@ -28,7 +28,6 @@ data Block = Block
     , _blHeight :: Float
     , _blMaterial :: Material
     , _blDraw :: BlockDraw --Block -> SPic
---    , _blObstructs :: Set PathEdgeNodes
     , _blObstructs :: [(Int,Int)]
     }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)

src/Dodge/Data/CWorld.hs

@@ -25,7 +25,6 @@ data CWorld = CWorld
     , _cwGen :: CWGen
     , _cClock :: Int
     , _cwTiles :: [Tile]
---    , _pathGraph :: Gr Point2 PathEdge
     , _incGraph :: V.Vector [(Int,SimpleEdge)]
     , _incNode :: UV.Vector Point2
     , _incEdges :: [(Int,Int)]