10 lines
286 B
Haskell
10 lines
286 B
Haskell
module Dodge.Equipment where
|
|
import Dodge.Data
|
|
|
|
import qualified Data.IntMap.Strict as IM
|
|
import Data.IntMap.Merge.Strict
|
|
|
|
getCrEquipment :: Creature -> IM.IntMap Item
|
|
getCrEquipment cr = merge dropMissing dropMissing (zipWithMatched $ \_ _ -> id)
|
|
(_crInvEquipped cr) (_crInv cr)
|