Remove ptCrIgnore

src/Dodge/Item/Display.hs

@@ -16,13 +16,19 @@ import Data.Sequence
 itemString :: Item -> String
 itemString = head . itemDisplay
 
+itemBaseName :: Item -> String
+itemBaseName it = case  _iyBase $ _itType it of
+    CRAFT str -> show str
+    HELD str  -> show str
+    x -> show x
+
 itemDisplayWithNumber :: String -> Item -> [String]
 itemDisplayWithNumber numberstr it = Prelude.take (itSlotsTaken it) $
     (midPadL 15 ' ' thename (' ' : numberstr) ++ theparam)
     : catMaybes [maybeWarmupStatus it,maybeRateStatus it]
     ++ moduleStrings it ++ repeat "*"
   where 
-    thename  = show . _iyBase $ _itType it
+    thename  = itemBaseName it
     theparam = fromMaybe []
         . listToMaybe 
         $ mapMaybe ($ it)