Continue work on refactoring equipment position

2024-12-19 01:29:40 +00:00
parent 331a9a2f9b
commit b0f0f5577c
5 changed files with 18 additions and 20 deletions
@@ -1,14 +0,0 @@
-module Dodge.Equipment where
-
-import Data.IntMap.Merge.Strict
-import Dodge.Data.Creature
-import qualified IntMapHelp as IM
-
-getCrEquipment :: Creature -> IM.IntMap Item
-getCrEquipment cr =
-    merge
-        dropMissing
-        dropMissing
-        (zipWithMatched $ \_ _ -> id)
-        (_crInvEquipped cr)
-        (_crInv cr)