module Dodge.Item.Amount where
import Dodge.Data
import Data.Maybe
import Control.Lens

itStackAmount :: Item -> IcAmount
itStackAmount it = fromMaybe 1 $ it ^? itConsumption . icAmount