Continue tree based inventory update

2024-09-10 16:35:44 +01:00
parent 854fc96ac7
commit 26f3610f82
14 changed files with 259 additions and 271 deletions
@@ -14,15 +14,15 @@ import LensHelp
 import Picture
 import Shape
 import ShapePicture
-import Data.Maybe
+--import Data.Maybe

-itemHeldAmmoPic :: Item -> Item -> SPic
-itemHeldAmmoPic itm amit = itemSPic itm <> addAmmoClip itm amit
+--itemHeldAmmoPic :: Item -> Item -> SPic
+--itemHeldAmmoPic itm amit = itemSPic itm <> addAmmoClip itm amit

-addAmmoClip :: Item -> Item -> SPic
-addAmmoClip itm amit = fromMaybe mempty $ do
-    hit <- itm ^? itType . iyBase . ibtHeld
-    return mempty
+--addAmmoClip :: Item -> Item -> SPic
+--addAmmoClip itm amit = fromMaybe mempty $ do
+--    hit <- itm ^? itType . iyBase . ibtHeld
+--    return mempty

 itemSPic :: Item -> SPic
 itemSPic it =