Comment out FGL

src/Dodge/CreatureEffect.hs

@@ -1,12 +1,12 @@
 module Dodge.CreatureEffect where
 
 import Linear
-import Data.Maybe
+--import Data.Maybe
 import Dodge.Base.Collide
 import Dodge.Creature.Test
 import Dodge.Data.CreatureEffect
 import Dodge.Data.World
-import Dodge.Path
+--import Dodge.Path
 import Geometry
 import Control.Lens
 
@@ -46,14 +46,14 @@ doCrAc ca = case ca of
 
 doCrWdAc :: CrWdAc -> Creature -> World -> Action
 doCrWdAc cw = case cw of
-    CrWdBFSThenReturn t -> \cr w -> fromMaybe NoAction $ do
+    CrWdBFSThenReturn _ -> undefined
-        n <- walkableNodeNear w (cr ^. crPos . _xy)
+--    CrWdBFSThenReturn t -> \cr w -> fromMaybe NoAction $ do
+--        n <- walkableNodeNear w (cr ^. crPos . _xy)
 --        let as = take 20 $ map PathTo $ bfsNodePoints n w
-        let as = []
+--        return $ DoActionThen (DoImpulses [ChangeStrategy Search])
-        return $ DoActionThen (DoImpulses [ChangeStrategy Search])
+--            $
-            $
+--            DoReplicate t $
-            DoReplicate t $
+--                foldr DoActionThen NoAction as
-                foldr DoActionThen NoAction as
     ChooseMovementSpreadGun -> chooseMovementSpreadGun
     ChooseMovementLtAuto -> chooseMovementLtAuto
 

src/Dodge/Data/CWorld.hs

@@ -10,7 +10,7 @@ module Dodge.Data.CWorld (
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
-import Data.Graph.Inductive
+--import Data.Graph.Inductive
 import Data.Tile
 import Dodge.Data.Camera
 import Dodge.Data.LWorld

src/Dodge/Data/PathGraph.hs

@@ -14,7 +14,7 @@ import Data.Aeson.TH
 import Data.Graph.Inductive
 --import Data.Map.Strict (Map)
 import qualified Data.Set as Set
-import Geometry.Data
+--import Geometry.Data
 
 --data PathGraph = PathGraph
 --    { _pgGraph :: Gr Point2 PathEdge

src/Dodge/Debug/Picture.hs

@@ -4,14 +4,14 @@ module Dodge.Debug.Picture where
 import Linear (_xy)
 import Control.Lens
 import Data.Foldable
-import qualified Data.Graph.Inductive as FGL
+--import qualified Data.Graph.Inductive as FGL
 import Data.Maybe
 import qualified Data.Set as S
 import Dodge.Base
 import Dodge.Creature.Picture.Awareness
 import Dodge.Data.Universe
 import Dodge.GameRoom
-import Dodge.Graph
+--import Dodge.Graph
 import Dodge.Path
 import Dodge.Picture.SizeInvariant
 --import Dodge.Render.InfoBox

src/Dodge/Default/World.hs

@@ -1,6 +1,6 @@
 module Dodge.Default.World (defaultWorld) where
 
-import Data.Graph.Inductive.Graph hiding ((&))
+--import Data.Graph.Inductive.Graph hiding ((&))
 import qualified Data.Map as M
 import Dodge.Data.World
 import Geometry.Data

src/Dodge/Path.hs

@@ -19,10 +19,10 @@ import qualified Algorithm.Search as AS
 import Control.Lens
 --import Data.Bifunctor
 import Data.Foldable
-import Data.Graph.Inductive hiding ((&))
+--import Data.Graph.Inductive hiding ((&))
 import Data.List (sortOn)
-import Data.Map.Strict (Map)
+--import Data.Map.Strict (Map)
-import qualified Data.Map.Strict as M
+--import qualified Data.Map.Strict as M
 import Data.Maybe
 import Data.Set (Set)
 import qualified Data.Set as Set

src/Dodge/Path/Translate.hs

@@ -1,7 +0,0 @@
-module Dodge.Path.Translate where
-
-import Dodge.Data.PathGraph
-
---fromEdgeTuple :: (Int, Int, PathEdge) -> PathEdgeNodes
---{-# INLINE fromEdgeTuple #-}
---fromEdgeTuple (a, b, pe) = PathEdgeNodes a b pe

src/Dodge/Zoning/Pathing.hs

@@ -2,11 +2,11 @@ module Dodge.Zoning.Pathing where
 
 import qualified Data.Vector.Unboxed as UV
 import Data.Foldable
-import Data.Set (Set)
+--import Data.Set (Set)
-import qualified Data.Set as Set
+--import qualified Data.Set as Set
-import Dodge.Data.World
+--import Dodge.Data.World
 import Dodge.Zoning.Base
-import Dodge.Zoning.Common
+--import Dodge.Zoning.Common
 import Geometry
 import qualified IntMapHelp as IM
 import Control.Lens