Cleanup

2026-03-26 23:35:12 +00:00
parent 8b088425a9
commit fed607681b
6 changed files with 27 additions and 26 deletions
@@ -181,7 +181,7 @@ wlsHitRadial p r = IM.mapMaybe f . wlsNearCirc p r
 --        v = normalizeV . vNormal . uncurry (-) $ _wlLine wl

 crsHitRadial :: Point2 -> Float -> World -> [(Point2, Creature)]
-crsHitRadial p r = mapMaybe f . crsNearCirc p r
+crsHitRadial p r = mapMaybe f . IM.elems . crsNearCirc p r
  where
    f cr = do
        let cp = cr ^. crPos . _xy