Cleanup
This commit is contained in:
+1
-65
@@ -1,65 +1 @@
|
||||
/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
|
||||
| ^^^^^^^^
|
||||
All good (620 modules, at 16:31:55)
|
||||
|
||||
Reference in New Issue
Block a user