/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:39:1-9: warning: [-Wunused-top-binds]
    Defined but not used: ‘cisToItem’
   |
39 | cisToItem (x, _, _, _) = x
   | ^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:43:10-12: warning: [-Wunused-matches]
    Defined but not used: ‘hit’
   |
43 |     HELD hit -> (itm, WeaponPlatformSF, useBreakListsLinkTest 
   |          ^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:52:1-16: warning: [-Wunused-top-binds]
    Defined but not used: ‘baseComposedItem’
   |
52 | baseComposedItem ibt itm = case ibt of
   | ^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:63:1-16: warning: [-Wunused-top-binds]
    Defined but not used: ‘heldComposedItem’
   |
63 | heldComposedItem itm hit = case hit of
   | ^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:74:1-16: warning: [-Wunused-top-binds]
    Defined but not used: ‘ammoComposedItem’
   |
74 | ammoComposedItem itm = fromMaybe (error "in ammoComposedItem, wrong item") $ do
   | ^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:79:1-7: warning: [-Wunused-top-binds]
    Defined but not used: ‘baseCIS’
   |
79 | baseCIS itm =
   | ^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:99:1-19: warning: [-Wunused-top-binds]
    Defined but not used: ‘leftIsParentCombine’
   |
99 | leftIsParentCombine (LDT (itm, p, lc, rc) lt rt) t'@(LDT (_, p', _, _) _ _) = do
   | ^^^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:106:1-20: warning: [-Wunused-top-binds]
    Defined but not used: ‘rightIsParentCombine’
    |
106 | rightIsParentCombine t'@(LDT (_, p', _, _) _ _) (LDT (itm, p, lc, rc) lt rt) = do
    | ^^^^^^^^^^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:138:1-6: warning: [-Wunused-top-binds]
    Defined but not used: ‘invLDT’
    |
138 | invLDT =
    | ^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:161:1-10: warning: [-Wunused-top-binds]
    Defined but not used: ‘invRootMap’
    |
161 | invRootMap = foldMap (dtToIntMapWithRoot (^?! _1 . itLocation . ilInvID) . ldtToDT) . invLDT
    | ^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:175:1-6: warning: [-Wunused-top-binds]
    Defined but not used: ‘invAdj’
    |
175 | invAdj im = do
    | ^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:199:1-11: warning: [-Wunused-top-binds]
    Defined but not used: ‘invIndentIM’
    |
199 | invIndentIM = IM.fromAscList . zip [0 ..] . reverse . map (over _1 cisToItem) . concatMap ldtToIndentList . invLDT
    | ^^^^^^^^^^^
/home/justin/Haskell/loop/src/Dodge/Item/Grammar.hs:206:1-8: warning: [-Wunused-top-binds]
    Defined but not used: ‘invTrees’
    |
206 | invTrees = IM.unions . map (ldtToIM getindex) . map (fmap cisToItem) . invLDT
    | ^^^^^^^^