Cleanup door mounts, noticed space leak when no debug-display paths

src/Dodge/Data/CWorld.hs

@@ -10,7 +10,6 @@ module Dodge.Data.CWorld (
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
---import Data.Graph.Inductive
 import Data.Tile
 import Dodge.Data.Camera
 import Dodge.Data.LWorld
@@ -19,13 +18,15 @@ import Geometry.ConvexPoly
 import Geometry.Data
 import qualified Data.Vector as V
 import qualified Data.Vector.Unboxed as UV
+import qualified Data.IntMap.Strict as IM
 
 data CWorld = CWorld
     { _lWorld :: LWorld
     , _cwGen :: CWGen
     , _cClock :: Int
     , _cwTiles :: [Tile]
-    , _incGraph :: V.Vector [(Int,SimpleEdge)]
+--    , _incGraph :: V.Vector [(Int,SimpleEdge)]
+    , _incGraph :: V.Vector (IM.IntMap SimpleEdge)
     , _incNode :: UV.Vector Point2
     , _incEdges :: [(Int,Int)]
     , _numberFloorVerxs :: Int