Cleanup

src/Dodge/Creature/ReaderUpdate.hs

@@ -106,6 +106,7 @@ flockACC w cr = fromMaybe cr $ do
         macr =
             safeMinimumOn (dist cpos . (^. crPos . _xy))
                 . filter isFarACC
+                . IM.elems
                 $ crsNearCirc cpos 50 w
     return $ case macr of
             Nothing -> cr

src/Dodge/Creature/State.hs

@@ -4,6 +4,7 @@ module Dodge.Creature.State (
     invItemEffs,
 ) where
 
+import qualified Data.IntMap.Strict as IM
 import Linear
 import NewInt
 import Control.Applicative
@@ -296,6 +297,7 @@ setRBCreatureTargeting cr w ituse
     newtarg =
         safeMinimumOn (dist mwp . (^. crPos . _xy))
             . filter (canseepos . (^. crPos . _xy))
+            . IM.elems
             $ crsNearCirc mwp 40 w
     canseepos p = hasLOS ((^. crPos . _xy) cr) p w
     mwp = w ^. cWorld . lWorld . lAimPos