8 lines
186 B
Haskell
8 lines
186 B
Haskell
module Dodge.Item.Amount where
|
|
import Dodge.Data
|
|
import Data.Maybe
|
|
import Control.Lens
|
|
|
|
itStackAmount :: Item -> IcAmount
|
|
itStackAmount it = fromMaybe 1 $ it ^? itConsumption . icAmount
|