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
-        n <- walkableNodeNear w (cr ^. crPos . _xy)
+    CrWdBFSThenReturn _ -> undefined
+--    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])
-            $
-            DoReplicate t $
-                foldr DoActionThen NoAction as
+--        return $ DoActionThen (DoImpulses [ChangeStrategy Search])
+--            $
+--            DoReplicate t $
+--                foldr DoActionThen NoAction as
     ChooseMovementSpreadGun -> chooseMovementSpreadGun
     ChooseMovementLtAuto -> chooseMovementLtAuto