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)