Fix combination bug

2021-12-06 02:33:36 +00:00
parent 22e3256da3
commit 40195d033c
12 changed files with 122 additions and 100 deletions
@@ -0,0 +1,7 @@
+module Dodge.Item.Amount where
+import Dodge.Data
+import Data.Maybe
+import Control.Lens
+
+itStackAmount :: Item -> Int
+itStackAmount it = fromMaybe 1 $ it ^? itConsumption . itAmount