Commit before removing stackable items

src/Dodge/Item/Draw/SPic.hs

@@ -14,6 +14,15 @@ import LensHelp
 import Picture
 import Shape
 import ShapePicture
+import Data.Maybe
+
+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
 
 itemSPic :: Item -> SPic
 itemSPic it =