Commit before potential Door refactor

src/Dodge/CreatureEffect.hs

@@ -46,7 +46,7 @@ doCrAc ca = case ca of
 
 doCrWdAc :: CrWdAc -> Creature -> World -> Action
 doCrWdAc cw = case cw of
-    CrWdBFSThenReturn _ -> undefined
+    CrWdBFSThenReturn _ -> const $ const NoAction
 --    CrWdBFSThenReturn t -> \cr w -> fromMaybe NoAction $ do
 --        n <- walkableNodeNear w (cr ^. crPos . _xy)
 --        let as = take 20 $ map PathTo $ bfsNodePoints n w