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