Commit before attempt to remove geometry shaders from shadow extrusion

src/Dodge/Data/CWorld.hs

@@ -19,6 +19,7 @@ import Dodge.GameRoom
 import Geometry.ConvexPoly
 import Dodge.Data.CamPos
 import qualified Data.IntSet as IS
+import Data.Graph.Inductive
 
 data CWorld = CWorld
     { _lWorld :: LWorld
@@ -29,6 +30,7 @@ data CWorld = CWorld
     , _timeFlow :: TimeFlowStatus
     , _seenWalls :: IS.IntSet
     , _floorTiles :: [(Point3, Point3)]
+    , _pathGraph :: Gr Point2 PathEdge
     }
 
 data TimeFlowStatus

src/Dodge/Data/LWorld.hs

@@ -50,7 +50,6 @@ module Dodge.Data.LWorld (
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import Data.Graph.Inductive
 import Dodge.Data.Beam
 import Dodge.Data.Block
 import Dodge.Data.Bounds
@@ -138,7 +137,6 @@ data LWorld = LWorld
     , _decorations :: IM.IntMap Picture
     , _foregroundShapes :: IM.IntMap ForegroundShape
     , _corpses :: IM.IntMap Corpse
-    , _pathGraph :: Gr Point2 PathEdge
     , _lightSources :: IM.IntMap LightSource
     , _tempLightSources :: [TempLightSource]
     , _seenLocations :: IM.IntMap (WdP2, String)