Remove shrink gun

src/Dodge/Item/Craftable.hs

@@ -8,7 +8,6 @@ makeTypeCraftNum :: Int -> CraftType -> [Item]
 makeTypeCraftNum i ct = replicate i $
     defaultCraftItem
         & itInvSize .~ 1
-        & itCurseStatus .~ Uncursed
         & itType .~ CRAFT ct
 
 makeTypeCraft :: CraftType -> Item

src/Dodge/Item/Grammar.hs

@@ -202,12 +202,16 @@ invTrees' = IM.unions . map (ldtToIM getindex . fmap (^. _1)) . map (fmap (\(x,
 -- returns an intmap with trees for all items
 --invTrees'' :: IM.IntMap Item -> [LocationLDT ItemLink ComposedItem]
 invTrees'' :: IM.IntMap Item -> IM.IntMap (Int,LocationLDT ItemLink ComposedItem)
-invTrees'' = IM.unions . map (f . LocLDT TopLDT) . IM.elems . invRootTrees
---invTrees'' = map (LocLDT TopLDT) . IM.elems . invRootTrees
+invTrees'' inv = foldMap (f . LocLDT TopLDT) (IM.elems (invRootTrees inv)) mempty
   where
-    f t = cldtPropagateFold h h g 0 t mempty
+    f t = cldtPropagateFold h h g 0 t id
     h x _ _ _ = x + 1
-    g x ldt = IM.insert (ldt ^?! locLDT . ldtValue . cItem . itLocation . ilInvID) (x,ldt)
+    g x ldt = (.) (IM.insert (ldt ^?! locLDT . ldtValue . cItem . itLocation . ilInvID) (x,ldt))
+--invTrees'' = IM.unions . map (f . LocLDT TopLDT) . IM.elems . invRootTrees
+--  where
+--    f t = cldtPropagateFold h h g 0 t mempty
+--    h x _ _ _ = x + 1
+--    g x ldt = IM.insert (ldt ^?! locLDT . ldtValue . cItem . itLocation . ilInvID) (x,ldt)
 
 -- returns an intmap with trees for root items, indexed by inventory position
 invRootTrees :: IM.IntMap Item -> IM.IntMap (LabelDoubleTree ItemLink ComposedItem)

src/Dodge/Item/Info.hs

@@ -101,7 +101,6 @@ leftInfo lit = case lit of
     SCROLLWATCH -> "A device that can be used to scroll through recent events."
     BLINKER -> "A device that allows local teleportation."
     BLINKERUNSAFE -> "A device that allows local teleportation. Potentially hazardous around walls."
-    SHRINKER -> "A device that shrinks the user."
     SPAWNER -> "A device that spawns creatures."
 
 equipInfo :: EquipItemType -> String

src/Dodge/Item/InventoryColor.hs

@@ -4,7 +4,6 @@ module Dodge.Item.InventoryColor
 
 import Dodge.Data.ComposedItem
 import Color
-import Dodge.Data.Item
 import Control.Lens
 
 itemInvColor :: ComposedItem -> Color

src/Dodge/Item/Weapon/Utility.hs

@@ -4,7 +4,6 @@ module Dodge.Item.Weapon.Utility
     , scrollWatch
     , blinkGun
     , unsafeBlinkGun
-    , shrinkGun
     ) where
 
 import Control.Lens
@@ -40,14 +39,6 @@ rewindWatch =
         & itUse . leftUse .~ LRewind --useRewindGun
         & itType .~ LEFT REWINDWATCH
 
--- needs to shift this item to the current inventory slot
-shrinkGun :: Item
-shrinkGun =
-    defaultLeftItem
-        & itUse .~ (defaultLeftUse & leftUse .~ LShrink)
-        & itParams .~ ShrinkGunParams FullSize
-        & itType .~ LEFT SHRINKER
-
 blinkGun :: Item
 blinkGun =
     defaultLeftItem