Simplify selection menu, remove overlapping

src/Dodge/Item/Display.hs

@@ -1,8 +1,6 @@
 module Dodge.Item.Display (
-    --itemDisplay,
-    itemDisplayOffset,
+    itemDisplay,
     canAttachTargeting,
-    --    selectedItemDisplay,
     itemString,
     itemBaseName,
     basicItemDisplay,
@@ -18,18 +16,6 @@ import Dodge.Module
 import LensHelp
 import Padding
 
-itemDisplayOffset :: Creature -> Item -> (Int, [String])
-itemDisplayOffset cr itm = case itm ^. itType . iyBase of
---    EQUIP (TARGETINGHAT tt)
---        | targetItemCanAttachAbove cr itm ->
---            ( -1
---            , leftPad 15 ' ' (targetingTypeString tt) :
---              (itemDisplay cr itm & ix 0 %~ (\s -> itemDisplayPad s (replicate (length (targetingTypeString tt)) '^')))
---            )
---    EQUIP (TARGETINGHAT tt) ->
---        (0, itemDisplay cr itm & ix 0 %~ (\s -> itemDisplayPad s (targetingTypeString tt)))
-    _ -> (0, itemDisplay cr itm)
-
 canAttachTargeting :: TargetType -> Item -> Bool
 canAttachTargeting TARGETLASER _ = True
 canAttachTargeting _ itm =