Move towards adding reflective shield

2021-11-05 12:14:11 +00:00
parent 5cbfa6f1ff
commit 2c768845b2
9 changed files with 8 additions and 25 deletions
@@ -46,7 +46,9 @@ addItem _ it'     = it' & itAmount +~ 1
 --numInventorySlots = 9

 itNotFull :: Item -> Bool
-itNotFull it = _itMaxStack it > _itAmount it
+itNotFull it = case it ^? itMaxStack of
+    Just themax -> themax > _itAmount it
+    Nothing -> False

 rmInvItem 
    :: Int      -- ^ Creature id