Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -48,7 +48,7 @@ crsHit sp ep w
    | sp == ep  = mempty
    | otherwise = sortOn (dist sp . fst)
        . overlap1SegCrs sp ep
-        . mapMaybe (\cid -> w ^? creatures . ix cid)
+        . mapMaybe (\cid -> w ^? cWorld . creatures . ix cid)
        . IS.toList
        . crsNearSeg sp ep
        $ w