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
@@ -10,8 +10,8 @@ import Data.Foldable
 import qualified IntMapHelp as IM
 damageCircle :: Float -> Point2 -> DamageType -> Int -> World -> World
 damageCircle r sp dt da w = w
-    & wallDamages %~ addwalldamages
-    & creatures %~ addcreaturedamages
+    & cWorld . wallDamages %~ addwalldamages
+    & cWorld . creatures %~ addcreaturedamages
  where
    --addwalldamages wlds = runIdentity $ S.fold_ (damageWlCircle wldam) wlds id wlstodam
    addwalldamages wlds = foldl' (damageWlCircle wldam) wlds wlstodam