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
@@ -6,4 +6,4 @@ import Control.Lens
 useC :: Cuse -> Item -> Creature -> World -> World
 useC cu = case cu of
    CDoNothing -> const $ const id
-    CHeal x -> const $ \cr -> creatures . ix (_crID cr) . crHP +~ x
+    CHeal x -> const $ \cr -> cWorld . creatures . ix (_crID cr) . crHP +~ x