15 lines
325 B
Haskell
15 lines
325 B
Haskell
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)
|