Improve item combination algorithm

2022-06-08 16:12:44 +01:00
parent 1b3988f961
commit ba8b33a87c
14 changed files with 77 additions and 22 deletions
@@ -3,5 +3,5 @@ import Dodge.Data
 import Data.Maybe
 import Control.Lens

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